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1. INTRODUCTION 


A. BACKGROUND 

Personnel within the United States Marine Corps are 
transferred periodically from one duty station to another, 
as Marines or jobs become available. When a Marine is 
transferred his duty responsibilities may also change. 
Marines available for transfer and billet vacancies are 
currently monitored manually, with the assistance of some 
mainframe computer reports and a personalized set of index 
cards. The personnel monitors perform the arduous task of 
matching Marines and Jobs after considering all available 
Into rmationk Automating some of the decision criteria used 
in this decision-making procedure is the purpose of this 
thesis. 

A transfer decision is generated by a Marine becoming 
available FOr transfer through joining the servic E 
completing a school, or finishing an overseas assignment. 
A billet becomes available by changes in the existing table 
of organization, or the exiting of the current billet 
holder due to reassignment orders. Improving the selection 
process and planning for future transfers requires a system 
that is interactive and online. Due to the amount of 
Marines in the system, a manual process can only take care 


Of immediate demands, but not project future demands. 
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For a system to be improved, it is first necessary to 
understand what it currently achieves. In this case, 
personnel are monitored and transferred as required by an 
avallable Marine or by a vacant billet. Currently, the 
monitor is aided by a quantity of sorted reports, and a 
personalized set of index cards. There is basically no 
real-time Capability, even though all the required 
information is stored on a large mainframe computer. The 
information that is retrieved is structure-limited and time 
consuming. Before a final decision is made on transferring 
a Marine, it is possible for three different monitors to 
provide input and for over thirty different variables to be 
considered. 

If part of the decision making process can be automated 
it will enhance the personnel monitor's ability to plan and 
coordinate the individual movement of Marines to future Job 
assignments. The personnel monitor will need the 
capability =ef viewing the current status of an individual 
Marine at a moment's notice. He can then provide immediate 
feedback to the Marine or whomever is asking the question 
about personnel. By providing the personnel monitor with 
immediate access to an updated personnel database, future 
requirements can be determined and resolved with the aid of 
the microcomputer. This automated real time assistance 
will reduce the number of variables used to make the final 


decision and provide the user more time for planning. 
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Be OBJECTIVES 
The objectives of this research paper are to determine: 


1. What decision criteria are used in making a 
transfer decision? 


2. What are the priorities in filling different 
assignments? 


3. What are the external constraints which makaemihe 
transfer decision diFilenler 


4. What automated assistance can be provided to 
support the decision process? 


After analyzing the current manual system used by the 
personnel monitors, meeting the requirement for a decision 
support personnel Ioni orm system was given first 
PE LO BIE The objective of this thesis is to DU EEE: 
system prototype which can eventually be expanded for use 
throughout the Marine Corps and other services. 

The design objectives of the Personnel Monitoring 
Database System (PMDS) are: 

1. Run on IBM compatible personal computer. 

2. Run in a relational database environment. 

3. Flexible enough to allow maintenance by the user. 


4. Have capability to customize the data retrieval 
based on demand requirements. 


5. Have capability of increasing the database size 
without having to reconstruct the database. 


6. Have a programming language that is both user 
friendly and provides powerful command techniques. 
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C. METHODOLOGY 

The purpose of the automated personnel monitoring 
system is not to replace the human side of personnel 
managing, but to assist with the known constraints. This 
would then reduce the transfer population reviewed to only 
qualified eligible Marines. Since the personnel monitoring 
system is a prototype system, the scope has been limited 
only to Marine Corps data processing officers. However, 
the concept should work with any occupational field or any 
size population within the constraints of the micro- 
computer. 

To develop this management tool for the monitor 
requires several steps: 


l. Review the existing procedures and develop the 
requirement analysis. 


2. Determine the system design strategy. and con- 
straints of the different alternatives. 


3. Develop the database system programs and test data 
to properly implement the database system con- 
straints. 


4. Determine future system enhancements for tne new 
personnel monitoring system. 


The objectives of this thesis, as discussed above, NUNC 
be presented in the chapters and appendices that follow. 
Chapter II provides the PMDS requirements analysis and the 
torino teria. Chapter IIi wili discuss the database 


design and structure. Chapter DIV. presents ithe System 


implementation and program module hierarchy. Future 
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recommendations and conclusions will be covered in chapter 
V. Appendix A is the PMDS data dictionary. Appendices 8 
thru G show the module listings for the entire system. 


Appendix H is the PMDS user manual. 
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II. REQUIREMENTS ANALYSIS 


A. INTRODUCTION 

Automated Data BENE S (ADP) is broken into several 
related components--hardware, Software, firmware, 
maintenance and personnel. The intent of this research is 
to examine at the assignment of ADP personnel who operate 
the hardware, program the software, use the firmware, and 
provide the maintenance. If the monitoring of these 
personnel can be facilitated by a decision support system 
then time, soriana dollars can be -saved by all 
concerned. 

The scope of this research paper is to look at officers 
in the United States Marine Corps, who have ADP as one of 
their occupational specialities. This will be accomplished 
by reviewing the personnel monitoring system currently used 
in the Marine Corps and then determining what decisions are 
used to support that ADP personnel monitoring policy. 

After reviewing what decision criteria are currently 
being used to monitor ADP personnel in the Marine Corps, we 
will design automated improvements to enhance the existing 
manual system. The review will include the creation of an 
automated decision support system that can be used to 
assist the versonnel monitor. Of sconrse;o dyurinog tenis 


entire review process, the human side of ADP and managerial 
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flexibility must be emphasized to provide better ADP 


Controls 


B. THE PROBLEM 

The scope of the problem and essential background 
information are discussed in this section. 

1. Scope 

The United States Marine Coros has over 196,999 
Marines who are doing thousands of different jobs at 
hundreds of different duty stations throughout the world. 
The process of monitoring these personnel so that the best 
qualified Marine is stationed where his skills can best be 
utilized is an arduous task. The purpose of this paper is 
to analyze this monitoring process. Only the automated 
data processing side of the Marine Corps will be addressed. 
However, the same concepts will work for most of the other 
occupations within the Marine Corps. In fact, these moni- 
toring concepts will also work for the sister services of 
the Army, Navy and Air Force by making only a few specific 
modifications in the decision criteria structure. 

The Marine Corps has approximately 2,000 Marines 
who have a primary, secondary or tertiary Military Occupa- 
tional Specialty (MOS) of 4@xx or 96xx. All 40xx personal 
are identified as data processing school trained Marines. 
The Marines with a 96xx MOS have received graduate level 


schooling in Information Systems Management or Computer 
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Science. Within the ADP community in the Marine Corps, 
there are approximately 1600 enlisted personnel and 400 
officers. | 
Rss Background 
To understand the arduous task of monitoring Marine 
Corps ADP personnel, it is first necessary to explain the 
ADP MOS and MOS paygrade structure for Marine officers. 
a. ADP Military Occupational Speciality 

(1) 4001 ADP Basic Data Processing Officer. 
This officer has been selected for the data processing 
field and may undergo on-the-job training at a permanent 
duty station. This officer has not been to the formal 
military Computer Science School (CSS) which is located in 
Quantico, VA. The basic course at CSS is called the Data 
Systems Officer (DSO) course and usually takes three months 
to complete. | 

(2) 4002. Data Systems Officer. DSO E MCT 
has successfully completed the DSO course and has received 
additional training in programming, customer Services, or 
computer operations. This officer is usually an unrestrict- 
ed officer who is capable of filling any data processing 
assignment. 

(3) 4006 Data Operations Officer. This officer 
usually has prior enlisted data processing experience in 
the computer operations area. This officer 1s normally a 


mated “duty officer or a warrant officer. Basically, this 
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means that this officer should only fill operation om E 
type assignments. 

(4) 4010 Data Programming Officer. This offi- 
cer will usually have prior enlisted experience in computer 
programming. Most of the time this officer is a limited 
duty officer or a warrant officer. Again, this means that 
an officer with this MOS should fill only programming offi- 
cer type assignments. 

(5) 9628 Computer Engineering Officer. This of- 
ficer has a primary MOS which may be unrelated to tne data 
processing field. However, as a secondary or tertiary MOS, 
the officer has received graduate level training in com- 
puter engineering. Normally a 9628 type job will be filled 
by an officer just graduating from school as a pay back 
billet. However, because there are so few Marines with 
this EI often the officer will have a tour in this 
occupational field every other assignment. 

(6) 9646 Data Systems Specialist. This officer 
has a primary MOS which may be unrelated to the data pro- 
cessing area. However, as a secondary or tertiary MOS, the 
officer has received graduate level education in the comput- 
er science field. Normally a 9646 type job will be filled 
by an officer just graduating from school as a pay back 
pillet: It is possible due to personnel shortages that 


this job could be filled by a 4002 or 9648 trained officer. 
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(7) 9648 Management Data Systems Officer. This 


officer may have a primary MOS which is unrelated to the 
| data processing field. The officer has received this 
secondary or tertiary MOS by completing graduate level edu- 
cation in the field of Information System Management. Nor- 
mally a 9648 type job will be filled by an officer just 
graduating from school as a pay back billet. It is possi- 
ble due to personnel shortages that a 9648 type job could 
be filled by a 4002 or 9646 trained officer. 

(Sie 29067) Colonel . This MOS is only maintained 
by a ground colonel in the Marine Corps. This MOS is a 
primary MOS for a colonel and does not indicate data pro- 
cessing background. These officers are monitored based on 
a secondary MOS of 4002, 9646, or 9648 which indicates the 
colonel has received prior formal ADP training. There are 
several officers that have the ADP education and due to a 
personal choice, have had their ADP MOS specialty dropped 
from the personnel master record. However, these few 
colonels are maintained through a turnover file held by the 
monitors. Mure 241 displays the military rank structure 
bom cach MOS. 

b. Current Personnel Monitors 

Officers working in the Data Processing field 
are monitored by three different monitoring sections--tne 
Monitor Section, the Special Education Section, and the 


Occupational Field Sponsor. 
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Rank Applicable MOS's 


Warrant Officers - 4006, 4010 

Company and Field - 4001, 4002, 4006, 4010, 
Grade Officers 9628, 9646, 9648 
Colonels - 4002, 9646, 9648, 9906 


Figure 2.1 ADP Military Rank Structure 

(1) The Monitor Section. In the Marine Compa» 
the Monitor Section is responsible for tracking all person- 
nel of specific pay grades. Usually each monitor will 
track the personnel in several MOS's for a specific pay 
grade or grades. This is particularly true in the smaller 
highly technical MOS's. This section has the final say in 
determining the officer's next duty assignment. 

(2) The Special Education Program Section. 
This section is mainly concerned with monitoring all 
personnel that have a Special Education Program (SEP) 
degree. Tnis degree can be an undergraduate or graduate 
level degree. These Marines are given a secondary or 
tertiary MOS of 96xx and are required to complete a pay 
back tour in that SEP field. It is possible that a SEP 
qualified officer may serve several SEP tours depending on 
personnel shortages and Marine Corps priorities. The SEP 
monitor oversees all pay grades in each SEP MOS and will 
usually have considerable say in an officer's assignment 


following the completion of the SEP school. 
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(3) The Occupational Field Sponsor. This sec- 
tion is mainly concerned with the Marines within a specific 
job specialty, such as ADP personnel. The Occupational 
Field Sponsor monitors all personnel and billet vacancies 
within that occupational field. This includes any SEP 
qualified officers that enter their specific occupational 
area. Before an officer is selected for the next duty 


assignment, this section is often requested to provide 


input and recommendations to the Monitor and Special 
Education Program Sections. This guidance is requested 
because the assignment will have an effect on the 


occupational field throughout the Marine Corps. 

It is possible that an officer is monitored by all 
three sections, each looking at the officer as an asset 
from different viewpoints--pay grade, special education, or 
technical skills. In many situations these views can and 
will overlap each other. The officer's next duty as- 
signment will be determined from these views and each 
section's decision criteria. 

Personnel data files are currently automated on a 
mainframe computer. Sections of these files can be down 
loaded to microcomputers; however, this is a time consuming 
process when information is needed immediately. This has 
caused the monitors to create an indexed card system on 
each individual Marine. In addition, a series of reports 


are maintained--in the most commonly sorted sequences--to 
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provide a quicker response time to the requester. The 
combination of the manual index file system and printed 
reports is a tedious way of getting the job accomplished. 
It appears that the driver of the ADP personnel monitoring 
is the Occupational Field Sponsor. This research will 
concentrate on the criteria used in making reassignment 
decisions. 
c. Reasons For A Decision 

There are only two reasons that would cause an 
assignment decision to be made--Personnel requirements and 
Duty Station requirements. 

(1) Personnel Requirements. As new officers 
join the ADP field and others leave the ADP field, vacan- 
cies in billets are generated. When one officer is trans- 
ferred to fill a specific billet, it leaves a billet 
vacant. This domino effect keeps officers on a continually 
moving plat orm. 

(2) Duty Station Requirements. As missions 
change within the Marine Corps, billets are continuously 
added, deleted or modified. As these changes take place 
personnel are required to fill these billet assignments. 
Usually, this is the driving force in reassignment of 
personnel within the ADP community. It should be noted 
that there are not enough data processing personnel to fill 
ad the Job requirements, therefore, priorities in 


placement must be determined. Often due to a shortage of 
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some skills, substitutions or second choices in skill 
levels or pay grades are accepted. The command's needs 
will be met in the best interest of the Marine Corps and 


ene officer. 


DECISION CRITERIA 
l. Overview 

The main purpose for making a personnel reassignment 
decision is to fill a billet that is now, or will be in the 
Eure, vacant. It should be pointed out that all vacant ADP 
billets are not required to be filled. Each duty station has a 
table of organization (BHO). This organizational structure 
indicates the specific skills (MOS) and the required pay grades 
necessary to fill each billet at the duty station. The structure 
includes both military and civilian personnel needed to complete 
the mission of the section, department or. duty station.. In 
addition to the (T/O), each duty station has a specific staffing 
goal. MEM Seo Seath ing. «Goal. chart che Monitor section is 
interested in. Usually this staffing goal is less than the T/O. 
These are the minimum billets and pay grades needed during a 
Mon-mar status. The major goal is to fill each required staffing 
goal with the best qualified Marine that is available for. 
relocation. 

25 EE Priorities 
The staffing priorities for each duty station are broken 


into three levels of commands--accepted, priority, and pro-share. 
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a. Accepted Command 

All accepted level commands must be filled 109 
percent with Marines who have the billet MOS and billet pay 
grades required by the staffing goals. Many times these 
restrictions in MOS and pay grade are due to certain billet 
specifics. The officer may be  interfacing with other 
officers of the desired pay grade, therefore, that specific 
pay grade is a requirement. Some specific technical skills 
are required in some job specifications and allow for no 
substitutions. When there aren't any qualified Marines to 
fill the billet, the Monitor will see if the billet may "e 
left vacant until the next qualified Marine is available. 

b. Priority Command 

All priority level commands may be filled 1092 
with Marines who have the required billet MOS and billet 
pay grades allowing up to ten percent substitui qb A 
substitution would include a Marine filling a billet that 
requires a pay grade which is one grade higher than his 
current pay grades An example is when a major can fill a 
lieutenant colonel's ballet. This should never be 
reversed, where an officer is transferred into a billet 
that requires a pay grade of one lower. There OP: 
lieutenant colonel should never be used to fill a majorie 
billet. Additionally, for priority level commands using a 
MOS, substitution is authorized. An example of this ki 


of substitution is when a Marine with a 4902 MOS is used 
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instead of the required 4010 MOS. Of course, the main 
objective is to fill the billet with the same pay grade and 
MOS as indicated by the staffing goals. This is not always 
possible due to an inbalance in required pay grades or 
technical skills. 
C. Pro-share Command 

All other commands are filled with the best 
available Marines eligible to be transferred when the 
Meeancy occurs. In some cases, billets are left vacant and 
are shown by the commands as a personnel shortage. 

d. Personnel Accountability 

The difference between the organizational T/O 
and the staffing goals are considered excess personnel. 
It should be mentioned at this point that when a Marine is 
sent to a duty station Eos peca ballet, qe dos 
not necessarily mean that the officer will be used by the 
director or commanding general in that capacity. It is the 
commanding general's decision where all Marines will be 
assigned, once they have arrived at the duty station. 
However, if a programming officer is used as a special 
services officer, then the command will have little 
justification requesting an additional programming officer 
from Headquarters Marine Corps. Additionally, JADE 
directors will usually switch officers around depending on 
the  facility's level of expertise. This helps to develop 


some organizational flexibility. However, it does not help 
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the monitor in assigning the "best" Marine for the billet. 
For this reason, many decisions are made to put out the 
closest fire--leaving little time for projecting future 
transfer patterns. A decision Support system, that applies 
the routine decision criteria, will allow the monto ME 


project future demands. 


D, DECISION ANALYSIS 
l. General 

There are many decision criteria that are used to 
determine if a Marine is qualified to be transferred: 

a. Pay Grade 

b. Primary, Secondary and Tertiary MOS 

cC. Time on Station 

d. Time in the Geographical Location 

e. Overseas Control Date 

f. Expiration of Active Service Date 

g. Armed Forces Active Duty Base Date 

ħa. Rotation Tour Darte 

i. Date of Rank 

J. Marital Status and if Spouse on Active Duty 

k. Duty Preferences 

Each of these decision criterion will be discussed 
in detail below, however, it should be emphasized that this 
list does not represent the only decision criteria used in 


determining who is the best qualified to fill a vacant 
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pillet. Nor does the sequence in this list of criteria 
represent any order of precedence, as the priorities will 
differ with each billet assignment. The Occupational Field 
Sponsor uses these decision criteria only as a guide. 
2. Details 
a. Pay Grade 

The officer's pay grade is one of the main 
decision criterion used in determining who is qualified to 
fill a vacant billet. The billet pay grade for the vacant 
position is determined by the duty station's staffing goals 
ame" “table of organization. leer lina, Gar “Dile, el 
Marines who have the same current or selected pay grade or 
have a pay grade of one less than the billet pay grade are 
eligible for selection. Refer to BPGRD, PGRD, and SPGRD in 
Appendix A. 

b. Primary, C and Tertiary MOS 

After the Marines have been qualified by pay 
grade, the next decision criterion is selecting those 
Officers that have the same military occupation specialty 
Es required in the vacant billet. At this point, it does 
not matter if this MOS is the officer's primary, secondary 
Or tertiary MOS: ee that have a qualified 
substitution MOS are also included in the selection group. 
An example would be if we are looking for a captain who has 


a 4006 MOS, then a captain who has a 4002 MOS could be in 
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the group of eligible Marines considered for selection. 
Refer to AMOS1, AMOS2, BMOS, and PMOS in Appendix A. 
Co Time on Station 

During this stage in the decision process we 
have all Marines that have an eligible pay grade and MOS. 
The time on station criterion is one of the criterion that 
will separate those Marines who are qualified to fill the 
billet from those who are eligible to fill the billet. It 
is a basic Marine Corps policy that an individual will 
remain on station for a minimum of three years. Two years 
is considered the minimum time on station before reassign- 
ment is even considered. These are only guidelines and 
this period may be waived with valid justification. For 
the purpose of developing a decision matrix, three years 
will be used as the norm and two years as the minimum. The 
only time this le not a valid assumption is when a Marine 
ls stationed overseas or attending a formal school. In 
those cases, rotation tour date and estimated school 
completion dates will be analyzed. Refer to DCTB and RTD 
in Appendix A. 

d. Time in the Geographical Location 

The mona bo time a Marine is in the same geo- 
graphical location is considered when time on station is 
reviewed. It is possible that a Marine may have only one 
year on station (doing his current job), however, the 


officer might have been in the same geographical location 
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mor Six years. In this example the officer would be 
considered eligible for reassignment. In most cases, the 
time in the geographical location is the same as the time 
on station. Refer to GLCDCTB in Appendix A. 

e. Overseas Control Date 

By the time this criterion is considered, the 
group of Marines that are--in the bucket--have all been 
identified as having the qualified pay grade, MOS and 
Pransfer eligibility. Usually the first critical decision 
criterion considered is to check when the officer was last 
overseas without dependents. This date is commonly called 
the overseas control date and indicates the last day the 
officer was overseas. 

When the opening billet is an overseas billet, 
then the monitor is looking for an eligible Marine with no 
overseas control date or an officer that has the oldest 
overseas control date. Refer to DAUSDR in Appendix A. 

f. Expiration of Active Service Date 

Up to this point we have been qualifying 
officers for a billet and have kept only those who nave 
been qualified and eligible to be reassigned. The monitor 
must look at the expiration of active service (EAS) dats 
E cause that date indicates the written obligation the 
officer has with the Marine Corps. Officers that have been 


augmented into the Regular Marine Corps will have an 
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indefinite EAS. All other officers are in the Marine Corps 
Reserve and will have an EAS. 

Any officer with an EAS of less than one year 
will not usually be considered for transfer until a more 
permanent career status is known. An officer has two 
opportunities per year to apply for augmentation into the 
regular Marine Corps, however, selection 1S very compet- 
itive. During the augmentation process, the officer could 
be selected to remain on active duty by a standard written 
agreement or an extension of active duty. If these methods 
are agreed upon by the officer, then the officer's EAS will 
be adjusted accordingly. Since it is not cost effective to 
transfer a Marine and his family for less than one year, it 
ls very seldom done unless the officer nas Just completed 
a formal military school or an overseas assignment. Refer 
to EAS in Appendix A. 

g. Armed Forces Active Duty Base Date 

The armed forces active duty base date 
(AFADBD), like the EAS, is an indication of remain mai 
obligated service for the Marine. The AFADBD tells the 
monitor how much time the Marine has had on active duty. 
If the AFADBD is older than 19 years, it would indicate 
that the Marine could retire in less than one year. Again 
since it is not cost effective to transfer a Marine officer 
and his family for less than one year, the monitor will 


contact this officer to determine his future intencions eee 
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remaining on active duty. Many billets take at least six 
months to a year before the officer is totally effective in 
the new assignment. Therefore, it would not be in the best 
Interest of the Marine Corps to reassign an officer who 
would have less than a year on station at the new duty 
station when he retires. Refer to AFADBD in Appendix A. 
h. Rotation Tour Date 

The rotation tour "date  (RTD) is used for 
Marines that are currently assigned to a duty station 
outside the continental United States (CONUS). Basically 
there are three different ways of acquiring an RTD. First, 
when an officer is assigned to an unaccompanied billet 
overseas. This assignment is normally for 12 months. The 
Second way is when an officer accepts an all other overseas 
billet assignment in lieu of an accompanied overseas 
Billet. This assignment is normally for 24 months. The 
third way of receiving an RTD is when the Marine is 
assigned =O an accompanied overseas billet. This 
assignment indicates that the officer and family is 
Q seas for a normal tour, usually 36 months. Regardless 
of the reason for receiving an RTD, extensions may be 
authorized by Headquarters Marine Corps. If an extension 
is authorized, then the RTD is modified. Depending on the 
type of duty tour, the RTD will be the date leaving CONUS, 


plus the tour length, minus one day. For example, 1f an 
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officer left for an accompanied overseas tour on [Usa 
1984, then his RTD would be 9 June 1987. When an officer 
is on an overseas assignment the RTD will be reviewed 
instead of the time on station, or the geographical 
location date. Refer to RTD in Appendix A. 
1. Date of Rank 

The monitor uses the date of rank (DOR) field 
to help determine which officers are senior within a 
specific pay grade. This date is also used to help project 
which officers will be eligible for promotion to the next 
pay grade. When an officer is eligible for promotion, the 
monitor usually will not assign him to a billet of his cur- 
rent rank until the results of the selection board are re- 
leased. This process is normally used when the billet is 
for a pay grade of captain or higher. This date is also 
used for priority commands where pay grade substitutions 
can be made. The more senior officers for each pay grade 
are considered eligible for billets of the next higher 
rank. Refer to DOR in Appendix A. 

J. Marital Status and if Spouse on Active Duty 

Marital status is an important criter lemme 
some billet assignment decisions. The different marital 
status conditions are single, single with dependent, 
married, married with military spouse, and divorced. Due 
to the billet requirements, certain marital status may not 


be recommended. Marital status becomes important for the 
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married officer with a military spouse. More coordination 
is required in this kind of reassignment because joint 
household transfers are preferred to reduce family hard- 
ships and additional costs. However, this alone would not 
restrict an individual from being eligible for reassign- 
ment. Refer to MARST and SPOSVC in Appendix A. 
k. Duty Preference 

One of the major decision criterion used by the 
Occupational Field Sponsor and the monitor is the Marine's 
duty preference. Every officer has an opportunity once a 
year, on the annual fitness report, to indicate where the 
Marine would like to be stationed next. The only problem 
with this opportunity, based on personal experience, is 
that most officers don't know which duty preferences they 
are qualified to fill. Many times officers list their 
current duty station, or duty stations where there are not 
billets available considering only pay grade and MOS. LE 
used incorrectly, tne Marine's duty preference will not 
assist the monitor in the decision process. However, if 
the Marine officers know which billets they are qualified 
to fill and then submits their duty preference, a lot of 
personnel searching may be eliminated. The only other way 
Marines have of letting the monitor know their duty 
preferences is by direct written or verbal correspondence. 


Refer to PDU1, PDU2, and PDU3 in Appendix A. 


B» 


Sã Other Factors 

It should be noted that the above decision criteria 
are only guidelines for the Occupational Field Sponsor to 
use in the decision process. In addition to these guide- 
lines, other constraints must be considered before the 
final selection is made. Some OE these other 
considerations are: 

a. Is the spouse in the military? 

b. Is the officer a female? 


c. Does the officer have special abilities or 
training? 


d. Is the officer in tne zone ror DEOmsct n 


e. What type of billet is needed by the officer 
for the best career pattern? 


f. Are there any dependent hardship constraints-- 
such as medical problems, or single parent with 
dependents? 


9. Has the officer been selected for a career- 
level school? 


n. Is the officer currently on a SEP pay-back 
EU 


i. Has the officer already been slated. for reas- 
signment? 


J. Prior experience in the Marine Corps--what duty 
stations and jobs already held? 


These are only some of the other factors that the 
personnel monitor must consider before making the transfer 
selection. Of course, the priority of thisss lis =: 
decision criteria and its constraints will depend on the 


circumstances surrounding the assignment. The overall 
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objective is to provide the best eligible Marine for the 


billet. 


E. RECOMMENDATION 

The decision matrix for personnel monitoring is a 
difficult process with many different variables. Although 
each decision for reassignment has different criteria, 
there are several routine factors that can be automated. 
Currently the majority of the decision making is done 
manually. The use of an automated decision support system 
will help the Occupational Field Sponsor determine which 
officers are eligible and qualified to be reassigned. This 
should reduce the initial number of officers the monitor 
needs to review. Such decision criteria as pay grade, MOS, 
time on station, geographical location date, and date of 
rank require little analysis and can be screened auto- 
matically by the computer. The Marines which meet all the 
requirements then can be reviewed for any other specific 
criteria necessary for the billet assignment. 

Partial automation of the decision making process will 
provide the monitor more time to make a quality decision. 
addition, this will help the monitor project future 
assignments for Marines and allow more time for putting out 
fires. More flexibility and control will enable the 


monitor to concentrate on the humanistic side of personnel 
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management, in addition to, the needs of the Marine Corps. 
This will help put the best available Marine in the billet. 

The next section will discuss the decision support 
database design used to automate the ADP personnel 


monitoring system for the Marine Corps. 
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111. DATABASE DESIGN 


A. METHODOLOGY 
l. Hardware 

The ability of the personnel system to run on a 
microcomputer is a given performance criterion which allows 
the personnel monitor the most flexibility. However, it is 
this same criterion that proves to be the most limiting 
system feature. The microcomputer 1S compact and portable, 
but without a hard disk, the storage capacity is limited to 
the amount of data that can be stored on a floppy disk. 
Implementing the system on a microcomputer provides maximum 
use of the microcomputers already available throughout 
Headquarters Marine Corps. Since most of the systems 
already used in the Marine Corps are IBM PC's, XT's or 
compatible systems, this was selected as the standard 
hardware design capability. The system was developed on a 
Men tien=159 microcomputer with 320K bytes of random access 
memory, an 8488 microprocessor, and two floppy disk 
drives. This hardware configuration is totally IBM- 
compatible. 

The system was developed on floppy disks and 
requires two 5 1/4" double-sided, double density disks for 
storage. These disks have room for expanding the number of 


reports or text fields used. If a hard disk is used, then 
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this limited disk space is no longer a problem. A minimum 
of 256K bytes of memory is required to rUn dBASE M 
2. Software 

During the database management system selection 
process Ion the Personnel Monitoring Database System 
(PMDS), several different systems were considered--dBASE 
II, dBASE III, and Knowledgeman. dBASE III by ASHTON-TATE 
was selected based on its versatility, ease of use, 
relational capabilities and wide availability throughout 
the Marine Corps. 

dBASE ETE provides abundant power to answer 
unanticipated queries using the dBASE language. This 
database package allows up to 1 billion records with a 
maximum of 128 fields. Additionally, dBASE TII alloc Es 
open files at one time and 256 active memory variables. It 
is evident that the limiting constraint in this application 
is hardware rather than the software capabilities. 

3. System User 

PMDS is designed mainly to be used by the ADP 
Occupational Field Sponsor for the Marine Corps: EnS 
section monitors all ADP personnel in the Marine Corps 
regardless of rank. Marines in the ADP occupational field 
routinely talk to this section when discussing future 
assignments. Therefore, providing the Marine's current 
record on a screen in real-time will assist the monitor 


when discussing future assignment possibilities. The two 
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main questions that are asked are: "what jobs am I 
qualified to fill?” and "what officers are qualified and 
zu JgIDle to cds" a certain vacant billet?" 

PMDS has been developed primarily to answer these 
questions for the Occupational Field Sponsor. The Monitor 
sections and Special Education sections can also be 
assisted by  PMDS. For the time being this system is 
limited to ADP officers only. After this prototype system 
has been tested in the field, it can then be expanded to 
other occupational areas. 

qu Scope 

Developing  PMDS as a prototype restricted the scope 
of the design for better control. The target group was 
limited to data processing officers within the Marine 
@orps. This required that every officer in the database 
had previously received some data processing training, as 
identified in one of the officer's military ee 
speclalities. Feasibility of the decision support concept 
in the assignment process can be determined from this data 
of nearly 460 officers. As monitoring continues, the scope 
can then be expanded if appropriate to include ADP enlisted 
Mar ines and other occupational specialities. 

5. Decision Criteria 
There are over 30 different decision criteria used 


when selecting an officer for reassignment. Many of these 
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criteria have been included as fields in PMDS. Refer to 
Chapter II and Appendix A for more details on each of these 


cutter ran 


B. DESIGN DEVELOPMENT 
IPP Te IMM. Desa 

All avallable information on the mainframe 
personnel database for ADP officers and billet assignments 
was gathered and reviewed. From over 500 fields available 
on each officer, 32 were selected as providing the 
essential information required by the Occupational Field 
Sponsor when recommending personnel to be transferred. The 
main body of the database and decision matrix is developed 
around these selected fields. 

A top-down development approach was used to provide 
horizontal control while developing the system. The areas 
OE concern logically divide into two .distinct areas 
Personnel and Duty Assignments. Due to frequency of use 
and maintainability of each database, these two distinct 
areas were again divided in half. These four databases 
were created as the hub of PMDS. 

Several system requirements were enforced to 
support data integrity and ease of use: 


a. Not allowing duplicate records to be added to 
the database. 


b. Checking for no record found in the database. 
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Cee Providing limited editing capability as a 
field is updated. 


d. Providing the user with the ability to route a 
" report to the screen or printer. 


e. Providing the user with the ability to easily 
Switch tasks and databases. 


2. Detailed Design 
After decomposing the decision criteria into four 
databases and determining the system requirements, a menu 
driven detailed design was developed. Again a top-down 
Structured modular approach was used throughout the entire 
design, coding and testing stages of development. The 
structured modular design was selected to provide the 
highest amount of modular cohesion and the lowest amount of 
modular coupling. 
| Modular cohesion is a measure of the functional 
strength of a module. Therefore, a totally cohesive module 
should do only one thing. Modular coupling is a measure of 
the interdependence between the modules. A module that is 
Luv coupled will have little, if any, interconnection 
with the other modules in the system. These concepts were 
used as procedural guidelines during the design and coding 
phases of development. 
The four database files that make up PMDS ara 
ENURICERS, CURRJOBS, STATION, and PMECCDESC. The OF FECERS 
database has data elements which are strictly related to 


the personal information about the officer and his job 
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qualifications. The military identification number (MID) 
is used as the key for this database since it is a unique 
number. The MID is also known as the social security 
number. Throughout the entire system this number is edited 
to allow only numeric data as input. 

The CURRJOBS database also uses the MID as the key 
field and contains data elements that relate information 
about the officer and his current job. These data elements 
were separated from the OFFICERS database elements to 
reduce the size of the OFFICERS database and provide 
separation for maintaining the database. The OFFICERS and 
CURRJOBS databases are joined together by the common key 
MID fields. This database also takes advantage of the memo 
text field capability of dBASE III where the monitor can 
write notes highlighting information about the oFfiicammm 
the officer's record without creating additional database 
overhead. This concept utilizes a separate text file which 
is called only when notes need to be updated or reviewed. 
This feature of the system can be used to replace the notes 
now on index cards. 

The STATION database contains data elements which 
represent all ADP jobs in the Marine Corps. The key field 
for this database is the table of organization line number 
(TOLINENO) which is a combination of two fields, the table 
of organization number and the line number. These fields 


were combined into one field to produce a unique key that 
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would identify a specific job assignment at a particular 
duty station. The STATION database 1S Joined to the 
CURRJOBS database by the key field TOLINENO. Therefore, 
officers in a specific job can be matched from the officer 
meme che job or from the job back to the officer. The MCC 
field will join this database with the MCCDESC database. 

The MCCDESC database could very easily have been 
combined with the STATION database to make just one duty 
Station and description database. However, when combined 
the MECDESC database fields (mcc description and 
geographical location) are only used upon request whereas 
the remaining STATION database fields are utilized 
routinely. This causes a large amount of unnecessary 
overhead when the databases are combined, hence sepvaration 
was deemed more efficient. 

Both the STATION and MCCDESC databases Nave a memo 
text field so the monitor can store particular information 
about the billet or the monitor command code. These memo 
fields use 10 bytes in the database file and can hold up to 
4000 bytes of information per record in tne text file. 
Monitor command code (MCC) is the key field for the MCCDESC 
database and provides a joining link to the STATION and 
CURRJOBS databases. Figure 3.1 shows a Bachman diagram of 


ENDS. 
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Officers Currjobs | Station Mccdesc 


MID «e MID BMOS -» MCC 
LNAME TOLINENO <- BPGRD MCCDESC 
FNAME MCC MCC = GEOLOC 
MI SBCDCTB -> TOLINENO 

PGRD DCTB BILLET 

SPGRD RTD BILNOTES 

DOR PDUL 

PMOS PDU2 

AMOSL PDU3 kkkkkkkkkkkkkkkkkkkkkk 
AMOS2 FMCC * k 
DAUSDR MARST * THE KEY FIELD IS * 
PEBD SPOSVC * UNDERLINED * 
AFADBD OFFNOTES k k 


EAS kkkkkkkkkkkkkkkkkkkkkk 





Figure 3.1 Personnel Monitoring System Bachman Diagram 


eN SYSTEM MAINTENANCE 
l. Mainframe Download 

The least time consuming method of updating the 
four databases would be to download directly from the 
Headquarters Master File  (HMF). Although currently this 
method has not been formally tested at Headquarters Marine 
Corps, some research and trial runs have been successfully 
completed. The trial runs have been made from the Naval 
Postgraduate School mainframe computer to a remote 
Zenith-150 computer using mainframe FOCUS to download the 
data files into the dBASE III structural Format REM 
technique basically overlays data in the personnel 


monitoring databases with the most current mainframe master 


m S 
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2. User Update 

PMDS must provide the user the opportunity to keep 
the system current. The user may add new records, update, 
delete or review existing records in all four databases. 
As discussed earlier, the modular system design enables the 
user to switch tasks or databases at will and create 
reports during any part of the updating process. The 
database structural design was selected to assist in this 
updating, thus combining commonly updated fields within the 


same databases and within the same logical area. 


D. DESIGN FEATURES 
I No Record Found 
During the update, delete and review procedures an 
esting record must be identified by the user for 
corrective action to take place. In all four databases, 
after an existing record has been identified by the user, 
the system will search an indexed file looking for a match 
of the key fields. If for some reason, the record is not 
found, the user will be notified tnat the desired record is 
not in the database. The user will then be given an 
opportunity to reenter the record identifier or change 
tasks. 
2. Duplicate Record 
At some point the user will want to increase the 


number of records in the database. This procedure is 
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accomplished by adding a new record to the file. The user 
will be asked to input the key information for the record 
that is going to be added. The current database is then 
searched looking for that key identifier. If no record 
with the identifier is found, then the record ls add dM 
the current database. However, if the record with the 
identifier is found, then the user is notified that the new 
record is a duplicate of an existing record. The existing 
record is displayed for the user who can then reenter the 
record identifier or change tasks. 
A a oe 

To protect the user from input errors besides 
checking for no records found and duplicate records, a 
limited field editing capability is provided to reduce 
Input errors: Each field has been given an authorized 
field picture which rejects invalid input entry. lamas 
3.2 shows the field pictures used in the system. Any input 
character outside this picture will not be accepted. 

The picture editing shown in Figure 3.2 allows the 

Foo editing capabilities: 

a. 9'S - Allows only digits for character dat m 

b. d's - Allows only digits, blanks and signs. 

c. A's - Allows only letters. 

d. N's - Allows letters and digits. 


e. !'s - Converts letters to uppercase and has no 
effect on other characters. 
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pw Memo 


Information 
text. file outside of the database. 
no” restriction 


una 


There is 


entered 


characters. 





in this field will be placed 


of input data 
this field up to 4000 


DATABASE PICTURE 
OFF//CUR 999999999 

OFFICERS nA a S m 
OFFICERS TEN A 

OFFICERS 

OFFICERS A9! 

OFFICERS A9! 

OFFICERS 999999 

OFFICERS 9999 

OFFICERS HHHH 

OFFICERS RRA 

OFFICERS tE ERO 

OFFICERS 999999 

OFFICERS AFADBD 999999 

OFFICERS EAS 999999 

CUR//STA TOLINENO 999919999! 

CU/ST/MC MCC NNN 

CURRJOBS GLCDCTB 9999 

CURRJOBS DCTB 999999 

CURRJOBS RTD EE ERO 

CURRJOBS PDUL 111 

CURRJOBS PDU2 111 

CURRJOBS PDU3 111 

CURRJOBS FMCC [n 

CURRJOBS MARST A 

CURRJOBS SPOSVC N 

CURRJOBS OFFNOTES MEMO FIELD 

STATION BMOS 9999 

STATION BPGRD A! 

STATION BILLET MA | 
STATION BILNOTES MEMO FIELD | 
MCCDESC MCCDESC MEMO FIELD 

MCCDESC GEOLOC A | 


Figure 3.2 System Input Field Editing 


4. File Integrity 


After loading the databases with current data it 1s 


important to maintain data integrity. When information 1s 


Modified in one file, all related files must also be 


55 


modified. To assist in this procedure, the system has been 
designed to automatically add current job information when 
a new officer is added to the OFFICERS database. 
Similiarly, when a record is deleted from the OFFICERS 
database, it will also automatically be deleted from the 
CURRJOBS database. 
5. System Speed 

To help decrease the system retrieval time, data- 
base indexes have been used on all key fields within the 
database. This ¡increases the storage overhead, however, 
it reduces the data retrieval time when searching for 
records indexed by the key. The system is designed to 
update all indexes automatically as the files are being 


updated. 


E. SYSTEM LAYERING 


PMDS is incorporated within several layers of system 


controls Figure 3.3 shows the system layering used in 
contro DS The MS-DOS operating system is the 
lowest layer. The next layer is the dBASE III database 


system. The PMDS is written totally in the dBASE III quem: 
language. 

PMDS also is broken into several layers to control the 
structured modules. The first system layer is the control 
layer which displays the title screen and the main menu for 


the system. From the main menu layer five controlling 
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branch. layers are used to monitor activity within each of 
the Cour databases and the report process. These 
controlling layers all return to the main menu, when all 
“database activity is complete. Below the database 
controlling layers are the modules which allow adding, 
updating, deleting and reviewing database records. This 
entire process is transparent to the user during system 
operation, despite the fact that there are several 
operating and controlling system layers before the program 


modules are reached. 


MS OS O EMEA ipa ONE SYSTEM 


OD OE LL DATABASE SYSTEM 


PERSONNEL MONITORING SYSTEM CONTROL 


DATABASE CONTROL 


Figure 3.3 Personnel Monitoring System Control Layers 
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ES SYSTEM CODING AND TESTING 
1. Module Coding 

PMDS was coded using the dBASE III query language 
for all programs, screen formats and report forms. Modules 
were coded in a structured top-down approach using the 
breadth-first technique. Each layer was coded and 
integrated into the module which initiated the calling 
process. After all control modules were coded, the 
depth-first technique was used to code and test each 
database. The report modules were the last modules to be 
coded and tested. 

As each module was completed, It was tested mie 
actual runs from the top-down until the end of the 
hierarchical chain was reached. When all four databases 
were coded and tested for database maintenance, selected 
report modules were created. Detailed documentation was 
used in each program module to assist the programmer 
conducting any future corrective maintenance. 

2. Test Data 

A large amount of time was needed to actually load 
the officers, billet assignments and duty stations data 
that would be used in the system. The final test was made 
with data that was current as ot July 1985. The OPET 
and  CURRJOBS databases have 416 records each. The STATION 
database has 298 billet assignment records and the MCCDESC 


database has 185 different monitor command codes. 
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3. System Testing and Integration 

System testing started from completion of the first 
program module to the end of the last report test. All 
features discussed earlier were used as test beds for 
modifying the actual databases. By using the actual data- 
bases as the test beds, a more realistic run and response 
time was maintained throughout the testing process. The 
system was developed to be as bulletproof as possible for a 
prototype system. 


Chapter IV will discuss each module in more detail. 


DN, 


IV. SYSTEM IMPLEMENTATION AND MODULE DESCRIPTIONS 


* 


A. SYSTEM IMPLEMENTATION 
l. User 

The Personnel Monitoring Database System (PMDS) is 
developed and designed for the ADP Occupational Field 
Sponsors at Headquarters Marine Corps. Although this 
prototype system is limited to the ADP occupational field, 
the system concept can be easily implemented for other 
occupational fields. This can be accomplished by simply 
changing the personnel in the OFFICERS and CURRJOBS 
databases and modifying the billet assignments in the 
STATION database. Additionally, the decision criteria used 
in the report section of the system need to be modified to 
reflect the new occupational fields. 

This prototype system does not have a security 
password built-in to limit access to the databases or the 
system. If this feature is required in the operational 
version, then minor changes can be made to acd terae an 
extra layer of security. The terminology used on display 
Screens and report formats is consistent with tnat 
currently used in the manual process. (See Appendix A, 


Data Dictionary, and Appendix H, User Manual). 
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2. System Loading 

The databases have been loaded and used for testing 
pürposes based on data current as of July 1985. TO 
operationalize the system, it will be necessary to 
implement any changes that have occurred since that time. 
PMDS is totally menu driven to provide the most flexibility 
for the user. To start the system load dBASE III and set 
muss default drive to B if using floppy disks, or C if using 
hard disk. After setting the default drive, simply type DO 
PMONITOR and the rest of the system is menu prompting. 

Selection 6 on the main menu gives the user the 
Epi ley to go directly Into dBASE III control language 
and create new reports or perform customized queries from 
the updated databases. When a report is required on a 
periodic basis, the report format can be added to the 
report menu and retrieved as desired. These database tools 
will become more useful to the user as they get more 
Ramil jar with the dBASE III query and control language. By 
uSing the QUIT command while under the dBASE III control 
language, control will be returned to the operating system. 

PMDS provides a versatile tool which will assist 
the personnel monitor in reaching routine reassignment 


selections. 


59 


B. MODULE DESCRIPTIONS 


T General 


PMDS works on three different levels: System 
conteo Database control, and Program level. The 
different levels provide the user more versatility to 


change databases and tasks within a database than a single 
layered system. All modules are structured to stand alone, 
if necessary. There is extensive programming documentation 
throughout each program module to assist the designer of 
the operational PMDS. 
24. System Control! 
ar PMONTTORS PG 

The  PMONITOR program creates a cover screen for 
the user indicating that PMDS is being used. This program 
calls the main menu program and is never used again during 
that operating session. Refer to Appendix H, Screen 1 and 
Appendix B for more detailed information about this 
program. 

be MAINMENU.PRG 

The MAINMENU program provides the total control 
between databases used in PMDS. This program calls data- 
base control programs depending on the user's selection. 
Control is passed to the OFFICERS, CURRJOBS, 57- 
MOSDESC or REPORTS contro! programes The MAINMENU program 
is the controlling hub of PMDS and is the return point 


after completing tasks in a specific database as shown by 
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megure 4.1. Refer to Appendix H, screen 2 and Appendix B 
for more detailed information about this program. 


3% Database Control 


ENONITDOR 
J, 
MA INMENU 
Z ZR Z Z |) 
SZ a M rA NZ 
OEPICERS CURRJOBS STATION MEC DESC REPORTS 
Figure 4.1 System Hierarchical Control Structure 


alts OBETCOMDTPRG 

The  OFFICCMD program provides the user with the 
capability to do different tasks within the OFFICERS 
database. These tasks include adding new officers, and 
modifying, deleting, or reviewing existing officer records. 
After a specific task is completed within the OFFICERS 
Meeaoase, control is returned to this control program. 
When all tasks are completed within the OFFICERS database, 
control is then returned to the MAINMENU program. Refer to 
Appendix H, screen 3 and Appendix C for more detailed 


information about this program. 
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b. ee CURRIGCMDAEEG 
The CURRJCMD program allows the user to update 
the CURRJOBS database. All other maintenance tasks for 
this database are automatically called when the off ERS 
are added, deleted or reviewed on the OFFICERS database. 
This built-in coro feature helps keep the key 
identifiers FOr the OFFICERS and CURRJOBS databases 
identical. After the updating is complete for the CURRJOBS 
database, control is then returned to the MAINMENU program. 
Refer to Appendix H, screen 24 and Appendix D for more 
detailed information about this program. 
© STATICMD. PRG 
The  STATICMD program provides the user with the 
capability to do different tasks within the STATION 
database. These tasks include adding a new billet to a 
duty station, and modifying, deleting or reviewing existing 
billet records at a duty station. After a specific task is 
completed within the STATION database, control is then 
returned mto this contro lios má When all tasks are 
completed within the STATION database, control is then 
returned to the MAINMENU program. Refer to Appendix H, 
screen 26 and Appendix E for more detailed information 
about thisspregrame 
ak MCCDECMD BERG 
The  MCCDECMD program provides the user with the 


Gap lb to do different tasks within the  MCCDESC 
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database. These tasks include adding a new monitor command 
code description, and modifying, deleting or reviewing 
existing monitor command code description records. After a 
specific task is completed within the MCCDESC database, 
Eonetrol is returned to this control program. When all 
tasks are completed within the MCCDESC database, control is 
then returned to the MAINMENU program. Refer to Appendix 
H, screen 43 and Appendix F for more detailed information 
about this program. 
e. REPORCMD.PRG 


The REPORCMD program provides the user with the 


capability to do different reports. These reports will 
Hedi ze the four current databases and the decision 
criteria discussed in Chapter II. The reports may be 


printed or displayed on the microcomputer monitor. After 
the report is completed the control is returned to this 
control program. After all reports are complete control is 
then returned to the MAINMENU program. Refer to Appendix 
H, screen 49, and Appendix G for more detailed information 
about this program. 
4. Program Level 
an OFFICADD.PRG 

iio ORE TCADD "programuuses the OFFICERS database 
indexed. on military identification number (MID). This 
program prompts the user for the new MID and then searches 


the OFFICERS database to see if that MID already exists in 
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the database. If that MID is not IN"the"O0FPFICERSAda COMA 
the new officer's MID is added to the OFFICERS and CURRJOBS 
databases. The user is then provided a formated officer's 
record screen with the MID already entered. Any remaining 
information can then be added to the OFFICERS and CURRJOBS 
database fields. If the MID is already in the OFFICERS 
database, then the user is given a display of the existing 
record and may add another record. 

The OFFICADD program is called by the OFFICCMD 
program and when the user is finished adding new officer 
records, control is returned to the OFFICCMD program as 
indicated in Figure 4.2. Refer to Appendix H, screens 
4,8,10-11 and Appendix C for more detailed information 


about this program. 


MA INMENU 
a 
OFFICCMD 
U.. 
e E a -— 
OFFICADD OFFICUPD OFFICDEL OFFICREV 


Figure 4.2 OFFICERS Database Hierarchical Control 
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Dre ORE ICUPD. PRG 

The OFFICUPD program uses the OFFICERS database 
indexed on military identification number (MID). This 
program prompts the user for the MID to be updated and then 
Searches the OFFICERS database to see if that MID exists in 
the database. If that MID is in the OFFICERS database the 
user is then provided the formated officer's record as 
displayed in the OFFICERS and CURRJOBS databases. The user 
cannot modify the MID or any information maintained in the 
CURRJOBS database. Ec Chem mb amis. not in the OFFICERS 
database, then the user is told that the record is not in 
the database and may update another record. The input data 
is edited to the formats shown in Figure 3.2. 

The OFFICUPD program is called by the OFFICCMD 
program. When the user is finished updating officer 
records, control 1S returned to the OFFICCMD program as 
Iinekicated in Figure 4.2. Refer to Appendix H, screens 
5,12,15,19 and Appendix C for more detailed information 
about this program. 

Ce OEF ICDEL. PRG 

The OFFICDEL program uses the OFFICERS database 
indexed on military identification number (MID). This 
program prompts the user for the MID to be deleted and then 
searches the OFFICERS database to see if that MID exists in 
the database. If chat MID is in the OFFICERS database, the 


user is then provided the formated officer's record as 
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displayed in the OFFICERS and CURRJOBS databases. The user 
is asked if the record is to be deleted and if the answer 
is yes, confirmation is required. If the MID is not in the 
OFFICERS database, then the user is told that the record is 
not in the database and may delete another record. All 
deleted records are erased from the OFFICERS and CURRJOBS 
databases when exiting the OFFICDEL program. 

The OFFICDEL program is called by the OFFICCMD 
program. When the user is finished deleting officer 
records, control is returned to the OFFICCMD program as 
indicated in Figure 4.2. Refer to Appendix H, screens 
6,13,16,18-19 and Appendix C for more detailed information 
about this program: 

a OPEBLCREV .PRG 

The  OFFICREV program uses the OFFICERS database 
indexed on military identification number (MID). Tnis 
program prompts the user for the MID to be reviewed and 
then searches the OFFICERS database to see if that MID 
exists in the database. If that MIDeis in the OFEICERS 
database, the user is then provided the formated officer's 
record as displayed in the OFFICERS and CURRJOBS databases. 
The user cannot modify any information maintained in the 
OFFICERS or  GURRJOBS databasa, If the MID is not in the 
OFFICERS database, then the user is told that the record is 


not in the database and may review another record. 
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DOPL UCREU program EMcalleaP by Che OFFICCMD 
program. When the user is finished reviewing officer 
records, control is returned to the OFFICCMD program as 
indicated in Figure 4.2. Refer to Appendix H, screens 
7,14,19-21 and Appendix C for more detailed information 
about this program. 

e. CURRJADD.PRG 

The CURRJADD program uses the CURRJOBS database 
indexed on military identification number (MID). This 
program uses the new MID that was input during the OFFICADD 
program and then searches the CURRJOBS database to see 1f 
that MID already exists in the database. If that MID is 
not in the CURRJOBS database, the new officer's MID is then 
added to the CURRJOBS database. The user 1s then provided 
ae formated current job record screen with the MID already 
entered. Any remaining information can then be added to 
the CURRJOBS database fields. If the MID is already in the 
CURRJOBS database, then the user is given a display of the 
existing record and may add another record. 

The CURRJADD program is called by the OFFICADD 
program. When the user is finished adding new current job 
Rnrormation, control is returned to the OFFICADD program as 
indicated in Figure 4.3. Refer to Appendix H, screens 9,26 
and Appendix D for more detailed information about this 


program. 
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Es “CURRJUPDSERRG 

The  CURRJUPD program uses the CURRJOBS database 
indexed on military identification number (MID). This 
program prompts the user for the MID to be updated and then 
searches the CURRJOBS database to see if that MID exists in 
the database. If that MID is in the CURRJOBS database, the 
user is then provided the formated current job record as 
displayed on the OFFICERS and CURRJOBS databases. The user 
cannot modify the MID or any information maintained in the 
OFFICERS database. If the MID is not in the CURRJOBS 
database, then the user is told that the record is not in 
the database and may update another record. The input data 
is edited to the formats shown in Figure 3.2. The monitor 
can input up to 4000 characters in a memo text file, which 
is held outside the CURRJOBS database. This file can hold 
miscellaneous information about the job assignment. 

The CURRJUPD program is called by the CURRJCMD 
program. When the user is finished updating current job 
records, control is returned to the CURRJCMD program as 
indicated in Figure 4.3. Refer to Appendix H, screens 
5,12,20,25 and Appendix D for more detailed information 
about this program. 

ge  CURRIDEL.PRG 

The CURRJDEL program uses the CURRJOBS database 

indexed on military identification number (MID). This 


program uses the MID that was input during the OFFICDEL 
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program and then searches the CURRJOBS database to see 1f 
that MID exists in the database. If that MID is in the 
CURRJOBS database, the user is then provided the formated 
current job record as displayed in the OFFICERS and 
CURRJOBS databases. The user is asked if the record is to 
be deleted and if the answer is yes, confirmation is 
required. If the MID is not in the CURRJOBS database, the 
user is notified that no record is found and is prompted to 
delete another record. All deleted records are erased from 


the CURRJOBS database when exiting the OFFICDEL program. 
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Figure 4.3 CURRJOBS Database Hierarchical Control 


Phe T CURRIDEL: program is called by the OFF TCDEL 


Program. When the user is finished deleting current job 
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records, control is returned to the OFFICDEL program as 
indicated "in Figure 4. 3% Refer to Appendix H, screens 
17,20 and Appendix D for more detailed information about 
this program. 

D STATIADD.PRG 

The STATIADD program uses the STATION database 
indexed on table of organization line number (TOLINENO). 
This program prompts the user for the new TOLINENO and then 
searches the STATION database to see if that TOLINENO 
already exists in the database. If that TOLINENO is not in 
the STATION database, the new station's TOLINENO is added 
to the STATION database. The user is provided a formated 
station record screen with the TOLINENO already entered. 
Any remaining information can then be added to the STATION 
database fields. If the TOLINENO is already in the STATION 
database, then the user is shown a display of the existing 
record and may add another record. 

The  STATIADD program is called by the STATICMD 
program. When the user is finished adding new station 
records, control is returned to the STATICMD program as 
indicated in Figure 4.4. Refer to Appendix H, screens 
11,28,32-33 and Appendix E for more detailed information 


about this program. 
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Figure 4.4 STATION Database Hierarchical Control 


ne STATIUPD.PRG 

The  STATIUPD program uses the STATION database 
indexed on table of organization line number (TOLINENO). 
This program prompts the user for the TOLINENO to be 
Medated and then searches the STATION database to see VE 
that  TOLINENO exists in the database. If that TOLINENO is 
in the STATION database, the user is then provided the 
formated Station record as displayed in the STATION 
database. The user cannot gmodify the TOLINENO. If tne 
TOLINENO is not in the STATION database, then the user is 
meturiede that the record is not found and may update 
another record. The input data is edited to the formats 
show Elgure 3.2: 

The  STATIURD program iS called by the STATICMD 
Program. When the user is finished updating station 


Records, control is returned to the Staticmd program as 


NE 


indicated in Figure 4.4. Refer to Appendix H, screens 
12,22,29,34 and Appendix E for more detailed information 
about. “this program: 

j- STATIO PRO 

The STATIDEL program uses the STATION database 
indexed on table of organization line number (TOLINENO). 
This program prompts the user for the TOLINENO to be 
deleted and then searches the STATION database to see if 
that TOLINENO exists in the database. If that TOLINENO is 
in the STATION database, the user is then provides the 
formated station record as displayed in the STATION 
database. The user is asked 1f the record is to be deleted 
and 1f the answer is yes, confirmation is required. If tne 
TOLINENO is not in the STATION database, then the user is 
told that the record is not found and may delete another 
record. All deleted records are erased from the STATION 
database when exiting the STATIDEL program. 

The  STATIDEL program is called by the STATH@ gs 
program: When the user is finished deleting station 
records, control is returned to the STATICMD program as 
indicated in Figūre 4.4.: Refer to Appendix H, screens 
13,22,30,37 and Appendix E for more detailed informada 
about Ends program: 

KU STATIREV. PRG 
The  STATIREV program uses the STATION database 


indexed on table of organization line number (TOLINENO). 


72 


This program prompts the user for the TOLINENO to be 
reviewed and then searches the STATION database to see 1f 
that TOLINENO exists in the database. If that TOLINENO 1s 
in the STATION database, the user is then provided the 
formated station record as displayed in the STATION data- 
base. The user cannot modify any information maintained 
in the STATION database. If the TOLINENO is not in the 
STATION database, then the user is told that the record 1s 
not found and may review another record. 

The STATIREV program is called by the STATICMD 
program. When the user is finished reviewing station 
records, control is returned to the STATICMD program as 
indicated in Figure 4.4. Refer to Appendix H, screens 
14,22,31,38 and Appendix E for more detailed information 
about this program. 

jm MCCDEADD.PRG 

The  MCCDEADD program uses the MCCDESC database 
indexed on monitor command code (MCC). This program 
prompts the user for the new MCC and then searches the 
MCCDESC database to see if that MCC already exists in the 
database. Lf that MCC is not in the MCCDESC database, the 
new command MCC is added to the MCCDESC database. The user 
is provided a formated command record screen with the MCC 
already entered. AnveNremarniud information can them 5e 


added to the MCGDESC database fields. LE tnie Med as 


a 


already in the  MCCDESC database, then the user is shown a 
display of the existing record and may add another record. 

The  MCCDEADD program is called by the MCCDECMD 
program. When the user is finished adding new command 
records, control is returned to the MCCDECMD program as 
indicated in Figure 4.5. Refer to Appendix H, screens 
11,39,44-45 and Appendix F for more detailed information 
about this program. 

m. MCCDEUPD.PRG 

The MCCDEUPD program uses the MCCDESC database 
indexed on monitor command code (MCC). This pue 
prompts the user for the MCC to be updated and then 
Searches the  MCCDESC database to see if that MCC exists in 
the database. If that MCC is in the MCCDESC database, the 
user is then provided the formated command record as 
displayed in the MCCDESC database. The user cannot modify 
the. Meee If the MCC is not in the MCCDESC database, then 
the user 1S notified that the record is not found and may 
update another record. The input data 1S edited to the 
formats shown in Figure 3.2. 

The MCCDEUPD program is called by the MCCDECMD 
program. When the user is finished updating command 
records, control 1S returned to the MCCDECMD program as 
lndicated  1nsbigute 4.5. Refer to Appendix H, screens 
12,23,40,46 and Appendix F for more detailed information 


about this program. 
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Figure 4.5  MCCDESC Database Hierarchical Control 


Ds MCCDEDEL. PRG 

The  MCCDEDEL program uses the MCCDESC database 
indexed on monitor command code  (MCC). This program 
prompts the user for the MCC to be. deleted and then 
searches the  MCCDESC database to see if that MCC exists in 
the database. lt that Mee 1s In tne MSeDESC database, the 
user is then provided the formated command record as 
displayed in the MCCDESC database. The user is asked if he 
wants to delete the record and if the answer is yes, 
confirmation is required. If the MCC is not in the MCCDESC 
database, then the user is told that the record is not 
found and may delete another record. All deleted records 
are erased from the MCCDESC database when exiting the 
MECDEDEL program. 

The  MCCDEDEL program is called by the MCCDECMD 


program. When the user is finished deleting command 
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records, control is returned to the MCCDECMD program as 
indicated in Figure 4.5. Refer to Appendix H, screens 
13,23,41,47 and Appendix F for more detailed information 
about this program. 
O. MCCDEREV.ERG 

The MCCDEREV program uses the MCCDESC database 
indexed on monitor command code (MCC). This program 
prompts the user for the MCC to be reviewed and then 
searches the MCCDESC database to see if that MCC exists in 
the database. If that MCC is in the MCCDESC database, the 
user is then provided the formated command record as 
displayed in the MCCDESC database. The user cannot modify 
any information maintained in the MCCDESC database. If the 
MCC is not in the MCCDESC database, then the user US- 
that the record is not found and may review another record. 

The MCCDEREV program is called by the MCCDECMD 
program. When the user is finished reviewing command 
records, control is returned to the MCCDECMD program as 
indicated in Figure 4.5. Refer to Appendix H, screens 
14,23,42,48 and Appendix F for more detailed information 
about th1s program 

p.  REPOLJOB.PRG 

The  REPOLJOB program uses the OFFICERS database 
indexed on military identification number and STAN! 
database indexed on billet pay grade. This program 


produces a report of billet assignments that an officer is 


Vo 


ualptred “to” fill. Initially the monitor enters the 
military identification number of an officer. The program 
then locates this officer in the OFFICERS database and 
pulls selected qualifying information from the OFFICERS 
database. Based on the officer's military pay grade and 
military occupational specialities, all billet assignments 
that the officer is qualified to fill on the STATION 
database are selected. The monitor may view the report on 
the display monitor or have it printed. At the end of the 
report is printed the officer's name and other qualifying 


mi ormation. 
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Figure 4.6 REPORTS Hierarchical Control 


If the officer's MID is not located in the 
OFFICERS database, the user will be told no record found 
and may run another report. The REPQLJOB program is called 


E che REPORCMD program. When the report is complete 


n 


control is returned to the REPORCMD program as shown in 
Figure 4.6. Refer to Appendix H, screens 50, report 1, and 
Appendix G for more detailed information about this program 
or the report format. 
q.  REPQLOFF.PRG 

The  REPQLOFF program uses the OFFICERS database 
indexed on last name, first name, middle initial and 
STATION database indexed on table of organization line 
number. This program produces a report of officers that 
are qualified for a particular billet assignment. Initially 
the monitor enters the table of organization line number of 
Specific billet assignment. The program then locates this 
billet in the STATION database and pulls selected 
qualifying information from the STATION database. Based on 
the billet pay grade and billet military occupatos 
specialities, all qualified officers are selected. The 
monitor may view the report on the display monitor or 
have it printed. At the end of the report is printed the 
billet assignment and other qualifying information. 

EE the table of organization line number 
(TOLINENO) is not located in the STATION database, the user 
will be told no record found and may run another report. 
The REPQLOFF program is called by the REPORCMD program. 
When the report is complete control is returned to the 


REPORCMD program as shown in Figure 4.6. Refer to Appendix 
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H, screens 51, report 2, and Appendix G for more detailed 
intormation about this program or the report format. 

Chapter V will give the conclusions and 
summarize future personnel monitoring system upgrades 
required to bring it into total operational use throughout 


the Armed Forces of America. 


HO 


V. FUTURE PMDS UPGRADES AND CONCLUSIONS 


A. FUTURE PMDS UPGRADES 
l. Occupational Field Sponsor 

The Personnel Management Database System (PMDS) as 
shown in this thesis is a prototype to be used by the 
Occupational Field Sponsors at Headquarters Marine Corps. 
This prototype provides the database maintenance and gives 
the user the ability to match the accepted command job 
level reports. These reports show the officers that are 
qualified to fill a job and the jobs that an officer is 
qualified Eo ERN 

The next version of PMDS will provide the user with 
priority command level reports. These reports will give 
the user only eligible qualified officers that can fill a 
job assignment. The difference is that an officer may be 
qualified to fill a billet, however, if he has been at his 
current assignment for less than two years, he is not 
eligible to be transferred. Additionally, in this version, 
the report will show officers who have the current billet 
Day grade or one pay grade less. Available job assignments 
will also be determined based on the date the current 
officer's tour began. This will help the user plan for 
future reassignment. The next version will use additional 


decision criteria during the selection process. 
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2. Automatic Downloading 

The prototype PMDS is upgraded by the Occupational 
Field Sponsor as personnel changes occur. In future 
versions of  PMDS, downloading can be done directly off the 
Headquarters Master File (HMF). A dBASE III structure can 
be created from the current data on the HMF file. This 
skeleton «dBASE III structure will then overlay information 
on the PMDS databases as desired. This change will require 
some initial conversion programs to be written, however, in 
the Hong. rün,- tais will facilitate the. upgrading of 
personnel records. 

3. Other Users 

After version 1 is implemented along with any other 
modifications desired from using the prototype PMDS, other 
ASES can be included. The first user to be added should 
be the enlisted ADP Marines. This group of Marines would 
add an additional ‘1608 Marines to PMDS. The only 
modifications required are the pay grade and MOS values 
used in the decision criteria. 

The next users that can be added are the mors 
technical military occupational specialities such as the 
2600 Communications MOS. This process can be continued 
until all personnel throughout the Marine Corps are added 
to  PMDS. Finally, these same concepts can be duplicated 


for each of the Armed Forces by modifying only the decision 


81 


criteria that differ between the services. PMDS will 


provide automated assistance for the Personnel Monitors. 


B. CONCLUSIONS 

The goals of this thesis were to analyze the personnel 
monitoring decision process and automate the decision 
criteria used in the manual process, while utilizing 
currently available microcomputer assets. The main purpose 
was to give the Occupational Field Sponsor real-time access 
to personnel monitoring data while discussing future 
reassignment options with the Marine. 

These goals have been achieved by the PMDS. Although 
PMDS is a prototype it is also operational. Improvements 
in this prototype will enhance PMDS for future operational 
use throughout the Armed Forces. 

As with any new system, improvements may be recommended 
by those who will be using the system on a daily basis. 
These suggestions are highly encouraged to produce a system 
that meets the user's requirements. I will personally be 
reviewing the latest versions of PMDS to continually 
improve its decision Support capabilities. Feedback is 
requested from all users and recommendations can be sent 
CO: 

Major. David Har Eon Us 

Chief Data and Graphic Systems Department 

Marine Corps Institute 


P4 Qs BODAS 
Arlington, Virginia 22222-0001 
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APPENDIX A 


DATA DICTIONARY 


The data dictionary is broken into three areas--file 


structure, field/database matrix, and field description. 


The purpose of this appendix is to provide the user with 


the system specifications and built-in constraints. 


BR FILE STRUCTURE 


I OPREIGERBS.DBE 


Field Name Type Width 
1 MID Character 19 
2 LNAME Character 18 
3 FNAME Character 13 
4 MI Character I 
5 PGRD Character. 3 
6 SPGRD Character 3 
7 DOR Character 6 
8 PMOS Character 4 
9 AMOS1 Character 4 

10 AMOS 2 Character 4 

EL DAUSDR Character 6 

JL PEBD Character 6 

13 AFADBD Character 6 

14 EAS Character G tk -Tota Mo 
D GURRIOBS BBE 

Field Name Type Widtn 
Y MID Character 10 
2 TOLINENO Character 19 
E MCC Character 3 
4 GDOBOTPB Character 4 
5 [De p Character 6 
6 RTD Character 6 
9 PDUL Character 5 
8 PDU2 Character E 
9 PDU3 Character 3 

19 EMCC Character 3 
JÉ MARST Character 1 
T2 SPOSVC Character 1 
LE OFFNOTES Memo 10 Tot asas - 
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3e 
Field 


OAU AUNE 


4. 
Field 
l 
2 
3 


B. FIELD/DATABASE MATRIX 


Field Name 


AFADBD 
AMOS 1 
AMOS 2 
BTECETF 
BILNOTES 
BMOS 
BPGRD 
DAUSDR 
DETB 
DOR 

EAS 
FNAME 
EMCC 
GEOLOC 
GECDETB 
LNAME 
MARST 
Mee 
MCEDESS 
MI 

MID 
ORENOTES 
IDEM 
PDU2 
BDO 
PEBD 
PGRD 
PMOS 
RTD 
SPGRD 
SPOSVE 
TOLINENO 


STATION DBF 


Name 
BMOS 
BPGRD 
MCC 
TOLINENO 
BILLET 
BILNOTES 


MCC DESC DBE 


Name 
Mee 
MECDESE 
GEOLOC 


OBL SES 


X 
X 
X 


PS pS pS 


DS DMM 


Type 

Character 
Character 
Character 
Character 
Character 
Memo 


Type 
Character 
Memo 
Character 


CURRJOBS 


PS PS 


PL PS xXx x 
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Width 
4 

2 

3 

19 

20 

19 


Width 
3 

19 

19 


(ALPHABETIC ORDER) 


STATION 


pA 9S PX PX 


** Total Sima 


** Total P 


MCC DESE 


C. FIELD DESCRIPTION, CONSTRAINTS, AND RELATIONSHIPS 

l. AFADBD - (Armed Forces Active Duty Base Date) 
peseription: For retirement purposes this is the date used 
to determine active duty service time. Example: 690313. 
Constraints: This is a date field in the format - year 
99), month (891-12), date (01-31). This date should not 
be earlier than the Pay Entry Base Date (PEBD). 
Relationships: Every officer will have an AFADBD. It is 
possible ‘for several officers to have the same AFADBD. 
This date is used to determine if and when the officer is 
eligible for retirement. 

2. AMOS1 - (Additional Military Occupational 
Specialtyl) 
Description:  Technically qualified to perform the responsi- 
bilities required by the occupational specialty, in addi- 
Gion to those indicated by the Primary Military 
Occupational Specialty (PMOS). The Crest =. tvowmdig 16s 
represent the occupation and the last two digits represent 
the specialty. Example: 9646 or 9648. 
Constraints: This field is normally only numeric. The 
lowest “occupation is lxx and the highest is 99xx. This 
lUud. can be blank, indicating no additional occupational 
specialty. This fre ld requa Ll PMOS or AMOS2 for tne 
Same officer. 
Relationships: Each officer may or may not have an AMOSI. 


PTS field could be equivalent to Billet Military 
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Occupational Specialty (BMOS). The field will be compared 
against BMOS to locate qualified officers. 

3.  AMOS2 = (Additional Military Occupational é 
Specialty2) 
Description:  Technically qualified to perform the responsi- 
bilities required by the occupational specialty, in addi- 
tion to those indicated by the PMOS and AMOSl. The first 
two digits represent the occupation and the last two digits 
represent the specialty. Example: 9646 or 9648. 
Constraints: This field 1s normally only numeric. The 
lowest occupation is lxx and the highest is 99xx. This 
field can be blank indicating no additional occupational 
specialty2. This field will not equal PMOS or AMOS1 for 
the same officer. 
Relationships: Each officer may or may not have an AMOS2. 
This field could be equivalent to BMOS. The field will be 
compared against BMOS to locate qualified officers. There 
should be values in the PMOS and AMOS1 fields before there 
is a value in the AMOS2 field. 

4. BILLET - (Job Description) 
Description: This field provides the job title: 
specific billet number located at a certain Monitor Command 
Code (MCC). Example: Director, Stn DERSCS 
Constraints: This is an alphanumeric field. "The Dil: 
will be a short description of the job title as normally 


úsed in the officer's fitnessSreport. 
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Relationships: Each billet will have a billet descrip- 
pron. Each officer will be ina billet as indicated by 
the T/O line number. Each duty station could have several 
billets that have identical descriptions. In addition, the 
billet ion at one duty station could be identical 
to the billet description at a different duty station. 

5. BILNOTES - (Billet Notes) 
Mescription: This field provides the Occupational Field 
Sponsor the opportunity to include any specific information 
about the billet which may be pertinent in evaluating the 
next officer assigned to the billet. 
@onstraints: This is an alphanumeric field which is held 
in a separate text database. The user has basically un- 
limited potential for this field not exceeding 4009 
characters. 

Relationships: This field contains comments related to the 
ecri fic T/O line number identifying the particular billet. 
eee oe = BT ret Mi ar roceupational Specialty) 
Description: This field indicates the qualified Military 
Occupational Specialty required by the billet assignment. 


The first two digits represent the occupation and the last 


two digits represent the specialty. Example: 4002 or 
9648. 
Copstraints: This field is normally only numeric. The 


lowest billet occupation for this system is Ülxx and the 


highest is 99xx. This field could be equivalent to the 
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PMOS, AMOSI or AMOS2 fields. 

Relationships: Each officer will have a BMOS as indicated 
by his current billet assignment. Usually the BMOS will be 
the same as the officer's PMOS, AMOS1 or AMOS2. However, 
cud is not mandatory for special staff billets such as 
9910 billets. There are many billet assignments which have 
the same BMOS, however, each billet assignment will have 
only one  BMOS. In addition, an officer may be qualified 
for several BMOS's, however, he can only be currently fill- 


ing one BMOS at a time. 


7.  BPGRD - (Billet Pay Grade) 
Description: This field indicates the required pay grade 
for the billet assignment. In the first space, O repre- 


sents officer and W represents warrant officer. The second 
space indicates the pay grade. Example: 04 or WO. 
Constraints: This field is alphanumeric and should not be 
blank. The first space can only be O or W, the second 
space can be O for warrant officer billets or 2-6 for Of- 
ficer billets. 

Relationshios: Each billet will have a BPGRD. A duty 
station can have many billets with the same BPGRD. An 
officer can currently only be filling one BPGRD. The PGRD 
of the officer currently filling a billet could be equa To 
the BPGRD or plus/minus one pay grade. This field will be 
used to look for qualified officers for a specific Dill E 


Normally an officer will not be assigned a billet that nas 
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me BPGRD less "than "his current PGRD. However, the officer 
could be assigned a billet that has a BPGRD one higher than 
his current PGRD. The BPGRD field is compared against the 
SPGRD and PGRD fields. | 

8. DAUSDR - (Date Arrived U.S. Dependents 


Restricted) 


Description: This date is used to determine when the last 
time the officer was overseas or deployed without 
dependents. This field is sometimes called the overseas 


sconterol date. Example: 829811 or 9. 
Constraints: This is a date field in the format - year 
(00-99), month (91-12), date (01-31). This field can have 
Ø indicating that the officer has not been overseas. This 
date should not be earlier than the PEBD. 
Relationships: Each officer should have a date or 0 in 
this field. This date will be compared to the current 
date, AFADBD plus some constant, and EAS. The DAUSDR will 
indicate when it is time for the officer to fill an over- 
seas billet - in the next assignment, or in the future. 

Sm pneu (Date Current Tour Began) 
Description: This date field is used to determine how long 
an officer has been assigned to a specific MCC. As long as 
the officer stays at the same MCC the date will remain the 
same, even if the job assignment within the MCC changes. 
Constraints: This is a date field in the format - year 


(00-99), month (01-12), day (91-31). This date cannot be 
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earlier than the GLCDCTB, but may be equal to it. This 
field should not be blank. 
Relationships: Every officer will have a DCTB for their 
current job assignment. This field will be compared to the 
proposed transfer date before determining if the officer is 
eligible for reassignment to another duty station. In 
general, the minimum time on station is two years, with 
three or more years on station being preferred. This field 
could be compared to GLCDCTB. 

DOR (DEMO) 
Description: This date is used to determine senti) 
among officers of the same pay grade. This date represents 
the day the officer was promoted to his current pay grade. 
Example: 830101. 
Constraints: This date field is in the format - year 
(00-99), month (01-12), day (01-31). This field should not 
be blank. 
Relationships: Each officer will have a DOR for their eur- 
rent pay grade. Many officers could have tne same DOR for 
the same pay grade. This field will mainly be used to 
determine who are the most senior officers for each pay 
grade. Additionally, this #ield#cowlid be used to prejee- 


which officers will be eligible for promotion to the next 


pay grade. 
ll. EAS - (Expiration of Active Service) 
Description This date is used to determine when the 
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officer's current active service agreement expires. This 
date is used for new officers indicating their initial 
service contract agreement, or by officers that have a 
reserve commission. Officers that are past their initial 
service contract agreement and have a regular commission 
will have an EAS of Ø. Example: 870317 or 0. 
Constraints: This is a date field in the format - year 
(00-99), month (l-12), day (01-31). This field should 
have a date or © and should not be blank. 
Relationships: Each officer will have a date or ð 
represented in this field. This date will be compared to 
the proposed transfer date plus twelve months before the 
officer 1S assigned to a new duty station. This field 
should be updated when the service status changes. 

12. FNAME - (First Name) 
Description: This field indicates the officer's first name 
and will be used mainly for identification. 
Constraints: The first name field is an alpnabetic field 
and is limited to 13 characters or less. 
Relationships: Every officer will have a first name. It 
is possible that more than one officer will nave the same 
first name. 

IR RCC. (Future Monitor Command Code) 
Description: This field indicates that the officer's next 
duty station has been selected, as shown by tne future MCC. 


Of course, the future MCC is only projected and could be 


OE 


subject to change, if circumstances warrant. Example: 009 
ONGMB 5 
Constraints: This is a three position alphanumeric field. 
This field could be blank, indicating that the next duty 
station for the officer has not been selected. 
Relationships: The FMCC field should be checked before 
qualifying the officer for the next duty stations Thema- 
field will be compared with the officer's current MCC, 
PDUL, —PDU2;, and PDU? fields: This will represent the 
future duty station from different points of view. 

l4. GEOLOC - (Geographical Becation) 
Description: This field is used to categorize duty 
stations into different geographical locations. Many times 
officers would rather stay on one coast or the other. This 
field helps separate the duty stations by these locations. 
Example: East Coast or Overseas. 
Constraints: This is a ten position alphabetic field. The 
locations have been kept to a minimum: None, Any, Conus, 


East Coast, Mid West, West Coast, Pacific, Atlantic, Over- 


seas. Each MCC will have an assigned geographical loca- 
tone 
Relationships: This field will be used to help select 


different billet assignments that an officer could be 
qual) fico” co En This field will help the Occupational 
Field Sponsor Keep in mind the desires of the officer, the 


cost of relocation, and the needs of the Marine Corps. 
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15.  GLCDCTB - (Geographical Location Date Current 
Tour Began) 
Description: This date field is used to determine how long 
an officer has been in one geographical location. Example: 
8408. 
Constraints: This is a date field in the format - year 
(00-99), month (01-12). This field should be equal to or 
less than the officer's DCTB year and month fields. 
Relationships: Each officer will have a GLCDCTB. This 
field will be compared to the DCTB field. If this field 
is greater than three years from the proposed transfer 
date and the DCTB is greater than one year, the officer 
could be eligible for reassignment. 

16.  LNAME - (Last Name) 
Description: This field indicates the officer's last name 
and will be used mainly for identification. 
Constraints: The last name field is an alphabetic field 
that is limited to 18 characters or less. If the officer 
Mose a Jr. or III in his name, it will be included as part 
of the last name. 
Relationships: Every officer will have a last name. It is 
possible that more than one officer will have tne same last 
name. Elo caco Cal identification of an officer, the first 
name, middle initial and last name should be compared. 

17.  MARST - (Marital Status) 


Deset 101 This field indicates the officer's marital 
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status and will mainly be used to identify married officers 
who have a spouse in the service. 
Constraints: MARST is a one character alphabetic field. 
The different marital status codes are S for single, M for 
married, D for divorced, L for legal separation. | 
Relationships: Every officer should have a marital status 
codex In addition, it is possible for each of these 
categories of marital status to have dependents. This 
field is mainly reviewed when special billet requirements 
exist. Additionally, the field is used to help identify 
all Marine officers who have a spouse in the service. 

18. MCC - (Monitor CommamadiCode) 
Description: This field indicates the duty station where 
an officer is currently assigned or could be assigned in 
the future. There may be several billets at each MCC. 
Example: -009 or MBI.: 
Constraints: This is a three character alphanumeric field. 
This field should not be blank. For each MCC there should 
be a MCC descriotion. 
Relationships: The MCC field will be compared with the 
officer's  PDUIl,  PDU2, PDU3, and  FMCC fields, which AM 
indicate the duty stations where the officer would like to 
be assigned and the officer's projected future duty 
station. Each officer will have a MCC to which his current 
billet is assigned. More than one officer may be assigned. 


to the same MCC. Each MCC will have only one description. 
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im OMEGDESC =- (Monitor Command Code Description) 
Description: This field provides the actual descriptive 
title for the duty station where the mcc is ec 
Example: 2nd FSSG, Camp Lejeune, NC. 

Constraints: This field is a memo text field due to its 
variable length. The MCC description is stored ina 
separate text file and can be displayed by using the field 
name. A directs ust of thesile wilibMonly indicate that it 
is a memo field, not the field contents. The maximum field 
length is 4000 characters, however, the database only repre- 
sents this field as lO positions. 

Relationships: Each MCC will have a MCC description. 
Each officer will be assigned a billet number which will 
come under a MCC. Several officers could be assigned to 
the same MCC. Each MCC description will correspond to a 
specific MCC and a geographical location. | 

BS MI ~ (Middle Initial) 

Description: This field indicates the middle initial of 
the officer's name. 

Constraints: This is a one character alphabetic field. 
This field could be left blank indicating that the officer 
does not have a middle initial. | 
Relationships: The middle initial field will be used in 
Senauction with the first mame and last name fields to 
identify an officer. Several officers could have the same 


middle initial. 
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ZAMORA 
Description: This is a unique number (Social Security 
Number) that specifically identifies the Tea All 
other data can be retrieved on an officer by using MID as 
the key field. Example: 0123456789. 
Constraints: The MID is a ten position numeric field. 
This field should have a leading 4. The MID should be 
unique and the field should not be blank. 
Relationships: Each officer will have only one MID and 
that field will be used to identify the officer and all 
related information about the lee This isa key 
field which will be matched prior to updating any related 
information about the officer. 

22. OFFNOTES - (Officer Notes) 
Descriptron: This field provides the Occupational Field 
Sponsor the opportunity to include Bn» specific information 
about the officer which may be pertinent in evaluating the 
officer for the next billet assignmemnt. 
Constraints: This is an alphanumeric field which is held 
in a separate text database. The user has basically un- 
limited potential for this field not exceeding 4000 
characters. The database will only — this field as 
10 characters. 
Relationships: This field contains comments related to the 
officer and his prior experience, special education, or any 


special skill capabilities. 
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ERR EDUL = (Preferred Duty 1) 
Description: This field indicates the officer's first MCC 
duty preference for his next duty assignment as indicated 
on the officer's latest fitness report. Example: 009 or 
MBl. | 
Constraints: This is a three position alphanumeric field. 
Memes field should not be blank, unless the officer has 
never been evaluated on a fitness report. The contents of 
this field could be the same as PDU2, PDU3 and FMCC. 
Relationships: The  PDUl is generated by the officer when 
semiannual fitness reports are submitted. This field is 
compared with the officer's current MCC and FMCC. This 
will indicate where the officer currently is stationed, 
where the officer wants to be stationed in the future, and 
where the officer's future duty station is projected to 
be. For each MCC there is only one description. 

EP? -preterrea Duty 2) 
Description: This field indicates the officer's second MCC 
duty preference for his next duty assignment as indicated 
wothe officer's latest fitness report. Example: 009 or 
MBl. 
@onstraints: This 1s a three position alphanumeric field. 
mms field should not be blank, unless the officer has 
never been evaluated on a fitness report. The contents of 
ears field could be the same as PDUI, PDU3 and FMCC. 


Relationships: The  PDU2 is generated by the officer when 
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semiannual fitness reports are submitted. This field is 
compared with the officer's current MCC and FMCC. This 
will indicate where the officer currently is stationed, 
where the officer wants to be stationed in the future, and 
where the SES future duty station is projected to 
be. For each MCC there is only one description. 

23) POUG I= (Prefer ved rie ya? 
Description: This field indicates the officer's third MCC 
duty preference for his next duty assignment as indicated 
on the officer's latest fitness report. Example: 909 or 
MBl. 
Constraints: This is a three position alphanumeric (se 
This field should not be blank, unless the officer has 
never been evaluated on a fitness report. The contents of 
this field could be the same as PDUl, PDU2 and FMCC. 
Relationships: The  PDU3 is generated by the officer when 
semiannual fitness reports are submitted. This field is 
compared with the officer's current  MCC and EMCCOOMMDMMS 
will indicate where the officer currently is stationed, 
where the officer wants to be stationed in the future, and 
where the officer's future duty station 1S projected to 
be. For each MCC there is only one description. 

ZON NEED Day PEO oy SD ate) 
Description For pay purposes, this date indicates the 
officer's service time. This is usually the date the offi- 


cer signed his original service contract. Examples 650522. 


98 


Constraints: This is a date field in the format - year 
(00-99), month (81-12), day (61-31). This field should not 
be blank. Usually Bis date will be the earliest date 
indicated for the officer. This date could be the same as 
AFADBD. 
Relationships: Every OE will have a PEBD. It is pos- 
sible that several officers will have the same PEBD. This 
field is used when calculating longevity for pay purposes. 
ERR PCGRD = (Payabrade) 
Description: This field is used to indicate the officer's 
current pay ER In the first space, O represents offi- 
cer and W represents Warrant Officer. The second space 
represents the current pay grade. The third space E indi- 
cates the officer has a least four years of enlisted active 
service. Example:  O3E or W4. 
Constraints: PGRD is a three position alphanumeric field 
which should not be blank. The first space can only be O 
BE W. The second space can only be 1-6. The third space 
can only be E or blank. Warrant Officers and PGRD 04 and 
above will have the third space blank even if they have 
over four years enlisted service time. 
Relationships: | Each officer will have a PGRD. Many offi- 
cers could have the same pay grade. This PGRD field will 
be compared to the BPGRD field when selecting an officer 
for a specific billet. When an officer is selected to the 


next pay grade, it will be indicated in the SPGRD field. 
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28. PMOS - (Primary Military Occupational Special mem 
Description: The Primary Military Occupational Specialty 
indicates the PIS in which the officer has received tech- 
nical training. The first two digits represent the occupa- 
tion and the last two digits represent the specialty. This 
is usually the primary job responsibility of the officer. 
Example: 4002 or 40189. 

Constraints: PMOS is a four position numeric field. The 
lowest occupation is @1xx and the highest is 99xx. This 
field should not be blank. Additionally, this field should 
not equal AMOS1 or AMOS2 for the same officer. 
Relationships: Each officer will have only one PMOS. How- 
ever, many officers could have the same PMOS. This field, 
along with AMOS1 and  AMOS2 fields, will be compared with 
BMOS when searching for a qualified officer to fill a spe- 
EIE Dle 

ZAR Ro cat ron loura) 

Descer ipenon: The RTD indicates when the officer will 
return to the continental United States (CONUS) from an 
overseas assignment. The date is calculated from the day 
the officer leaves CONUS plus one, two, or three years 
depending on the overseas assignment and then subtracting 
one day. Example: 851220. 

Constraints: This is a date field in the format - year 
(00-99), month (01-12), day (91-31). This date should not 


be greater than the officer's EAS unless it is blank. 
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Relationships: If the officer is currently on an overseas 
assignment than there should be a rotation tour date, other- 
wise the field should be left blank. This field is mainly 
used with the DCTB and GLCDCTB fields to determine when an 
officer is eligible to be transferred. When assigning an 
officer to an overseas assignment, than the proposed RTD 
will be calculated to determine if the officer has enough 
service time remaining to successfully complete the over- 
Seas COUL. 

30. | SPGRD - (Selected Pay Grade) 
Description: This field indicates that the officer has 
been selected for the next pay grade. After selection, the 
new pay grade will remain in this field until the officer 
1S promoted. Example:  O2E or W3. 
Comstraints: This is a three position alphanumeric field. 
The first space should be O or W. The second space should 
be 1-4 for Warrant Officers and 1-6 for Officers. The last 
Space can be E or blank. The entire field could be blank. 
Relationships: This field will be compared, along with the 
PGRD field, against the BPGRD field when searching for a 
mu wiitied officer to fill a specific billet. If this field 
is blank, then the PGRD field will be compared. 

31. SPOSVC — (Spouse's Service) dd 
Description: This field is used to identify the officer's 
spouse that is also a member of the Armed Forces and 


indicate the spouse's service. Example: N (for Navy). 
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Constraints: SPOSVC is a one position alphanumeric field. 
The first letter of the service is used to indicate the 
service name. This field will be left blank or have 8 for 
officers that are not married or do not have a spouse in 
the Armed Forces. 
Relationships: This field is mainly used as additional 
information for the Occupational Field Sponsor. An oie 
that has a spouse in the service should be transferred 
jointly with the spouse, if at all possible, thus prevent- 
ing a personal and financial hardship. Knowing the 
spouse's service will assist in the reassignment decision. 
32. TOLINENO - (Table of Organization Line Number) 
Description: Each billet will have a unique T/O line num- 
ber assigned to that specific job. The first five digits 
indicate the Table of Organization and the last five digits 
indicate the specific billet line number for that T/O. 
Example:  3447N0135A is the T/O line number for the Info Sys 
Mgt Officer, H&S Co H&S Bn 2nd FPSSG Camp Lejeune neos 
Constraints: TOLINENO is a ten position alphanumeric 
fieldy This field should not be blank. It is possible to 
have blanks in the middle of this field which indicates 
that the T/O is less than five positions. 
Relationships: Each officer will be.assigned to a specific 
ballet number. The officer, however, may be qualified to 
work at many different billet assignments. When an officer 


changes jobs, the new T/O line number should be updated in 
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the CURRJOBS file. This is a key field which uniquely 
identifies an officer to a specific billet. It is possible 
for more than one officer to be assigned to the same T/O 
line number. However, this will only happen when there is 
a personnel overage at a specific duty station - such as 
when an incoming officer arrives before the outgoing offi- 
cer  departs. This field will be used to find qualified 
DHMEICers for each billet. In addition, it will be used to 
identity the officer who is currently filling a specific 
billet. For a specific billet assignment, required officer 
qualifications can be determined by using the T/O line 


number. 


103 


A.  PMONITOR 


AUTHOR 
PURPOSE 


CALLING 


X OR OR X 0X 0X 0X X 0X HF x 


ETLE USED 


DATE LAST 


PMONITOR.PRG 


APPENDIX B 


COMMAND MODULE LISTINGS 


DAVID L. HORTON MAJOR USMC 

Produce the title screen for the Personnel 
Monitoring Database System and call the main 
menu program. 

None 

Mainmenu.prg 


TIME MODIFIED =====> 25 OCTOBER ops === 


Set-up initial system configuration. 


SET CONSOLE ON 


SET TALK OFF 


SET BELERON 
SETMINTENS TIY OFF 


CLEAR 

G 12,20 
a 14,26 
a 21,36 
d 23523 
a 24,1 
WAIT ' 


+ + X X 


CLEAR 


SAY 
SAY 
SAY 
SAY 
SAY 


Push 


DO MAINMENU 
CLEAR ALL 


CLEAR 


Screen set-up. 


“PJE R S O N T O R I NEEM 
"DAT ABA 
eet ieee 


"David EL. Horton Macoris 


' ' 


N EL 
S E 


m < 
3 O 


NI 
SN E 


any key to start ' 


Wait for the user to start the the monitoring system, 
then select the mainmenu program. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 
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B. MAINMENU 


* MA INMENU. PRG 

AUTHOR DAVID Ls HORTON MAJOR USMC 

* PURPOSE Provide the user the capability of 

E maintaining all databases used in the 
personnel monitoring system. In addition, 
the user can produce a series of reports from 
these updated databases. 


FILE USED : None 

CALLING Ore ema pro Cu Ee. PEg r. oba come ra, 
Mccdecmd.prg, Reporcmd.prg 

DATE LAST TIME MODIFIED =====> 12 NOVEMBER 1985 <===== 


Display the process menu to the user and wait for the 
user's choice. 


+ + + OR 0€ 00€ X X X 


EBORE © TO CHOICE 

Sore L TO CONTINUE 

BO WHILE CONTINUE = 1 

CLEAR 

(a 3,10 SAY (sm============================" 
(a 3,40 S N 


à 6,18 SUY UT PERSONNEL MONITORING SYSTEM MAIN MENU B 
Q 7,18 SAY “ ------------------------------------- s 
210,18 SAY " pu Maintain OFFICERS File 2 
mE IS SAY " 2) Maintain CURRJOBS File i 
Mz 18 SAY " 3) Maintain STATION File 3 
ENS 19 SAY " 4) Maintain MCCDESC File M 
ab4,18 SAY " 5) Reports E 
ts, 18 SAY " 6) Return to dBase e 
da 18 SAY " 7) Return to Operating System Y 
? 

P 

INPUT ' Please Enter Your Choice (1-7) ====> 2 RO NCTOTCE 


* Perform appropriate task based on the user's choice. 


BO CASE 


kkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkěkkkěkkkkkkkkkkěkkkkkkkkkkkkk 
CASE CHOICE = 1 
kkkkxkkkkxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkkkkkkkkkkkkkkkk kkk 
* 


Call the officer command program. 
* 


DOMOB B CCM D 


kkkxkxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkkkkkkkkěkkkkkkkkk 


EENCASE CHOICE = 2 


kkkxkxkkkkxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkxkkxk 
* 
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* Call the current Jobs command program. 
* 


DO CCURSIEMD 


KK RAR 
* CASE CHOICE = 3 | 

* e Je e oe ode e oe oe oe oe oe oe e oe oe ode oe oe oe oe ode de eoe de de deck de ok de de coke e e oe de eoe ok e x ok ke x x 4 kx kx 4 x ko x x ok ok 
* 


* Call the station command program. 
* 


DO SS TPATIPCHI 


* ce ce e e e de RARA RARA 
* CASE CHOICE 94 

* ck oe oe e ce oe ode de ce oe oe ode de ck ode ode eoe coke oe oe ode eoe oe ode eoe ode ode ode Z Z K K de ck e coe de ck oe e de de oe oe de e x kx kx kx n kx 
* 


* Call the monitor command code description command 
* Program: 
* 


CLEAR 

@ 12,1 SAY "PLEASE INSERT PROGRAMADIS nn 

SET TALK ON 

WAIT 

SET TALK ORFE 

DO MCCDECMD 
ect RR ROR e e e e e e e e e e ke oe ke ke oe oe oe oe oe ok oe ok ke ok ok ok koe kk ke ek ke ek eek 
* CASE TECHOS? 9 
KR RR RRR RR RRR RRR RR OR RRR RR OR kk kk 
x 


* Call the reports command program. 
* 


DO REPORCMD 


X oec ode deco ec de ec Á ck de ck ode e ok de ck de e ok de ck de ck KKK RK KKK RRR KK KKK KR KKK RK RRR RK KKK 
*  CASESCHOPBGES I6 
* ck oko ck ck ck de ck eek o ee ee de dee de ok oko ok oko de deck oko ko de Z A K ZA de ok ok e ck ok ke n ko ko ko A 
* 
* Return the user to dBASE syscemcomnsnon 
* 

STORE Y TO CONTINUE 

EXI 
* ck ok odeck ok ck deck ko kokokok kokok kk ke kk kk okokesdek kk kkkkkkktktktktktktktktktkktktktktktktktkkt 
* CASE QHOICES= 7 
E RR RR RR RR RR RR RR RR RR RR RR ke de kx RR E RR k ok A K AZ SR SA AR 
* 


* Return the user to the operating system control. 
* 


CLEAR 

STORE V TO CONTINUE 
OU 

ENDCASE 


kkkkkkkkkkkkkkěkkkkkkkěkkkkkkkkkkkkkkkkkkkkkěkkkěxkěxkěkkěkkkkkkkkkěkkkkxkxk 
* 


* Continue processing loop control check. 
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ENDDO WHILE CONTINUE = Q 
CLEAR ALL 
CLEAR 


e de eoe oe oe ode ode eoe ok ode ode ke oe oe de eoe oce oe ode oe oe oe ck ode ce oe eoe ode ode oe oe de deo e de de ke ke ke x x ke x ok kx kx ok kk kk xx 
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APPENDIX C 


OBE TCBRS MODULE ErS INES 


Ae OFFICCMD 


OPE TCeMD ane 


AUTHOR > DAVID L. HORTON MAJOR USMC 

PURPOSE : Maintain or review the officer database 
file. 

FILE USED ?: None 

CALLING : Officadd.prg, Officupd.prg, Officdes omar 
Officrev.prg 

DATE LAST TIME MODIFIED =====> 25 OCTOBER 1985 <===== 


Display the process menu to the user and wait for the 
selection. 


E EE ee ee 


STORE 9 TOITSELECTION 

STORE 1l TO TRYAGAIN 

DO WHILE TRYAGAIN = 1 

CLEAR 

(a 3,10 SAY "==============================) 
(d 3,40 SAY *"=z============================" 


umo d MES a. MAINTAIN OFFICERS EILE 

@ 7,18 SAY " | ---------------------- 

ALTO, LISA 1) ADD a new officer record 

Gli, ve sa 2) UPDATE an existing officer record 
@ l2 A i 3) DELETE an existing officer recorda 
al lemm Ayn" 4) -REVIEW an existing officer record 
AUS DONE n 5) RETURN to the main menu 

e 

2 

INPUT 'Enter your selection (1-5) ===> ' TO SELECTION 


x 


Process routine based on the user's selection. 


DO CASE 


RAK Kea KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 
CASE SELECTION = 1 : 

x ck ce oce oe oe oe ood ook oko oe oe oe ook ok ook ok eek oe oe ode ode ooo oe ode oko KÁ AZ A Á AK A A K K Á deo x de x ok ko koX ok 

* 


* Call the officer add program. 
* 


DO OFFICADD 


Kaka Ka KK aK RK KARR KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK 
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CASE SELECTION = 2 


coe ce oe e ok oe de ok ode ck ok ode ck ode ode oe ok ode ok ode eoe ode oe oe oe ode ok oe ode ok oe ode ok ode ok oe oe oe deo kx ke kx ko ko ke ox ok ox ok ok ok ok kk 
* 


* Call the officer update program. 
* 


BO OEE ICUPBD 


*k oe oe oe oe o ode oe eode oe oe oe ode oe oe oe ode ode oe oe oo ode oe ode oko oe eoe oe oe ode ode ode oe oe oe oko KKK KR KKK KKK KKK KR KEK 
CASE SELECTION = 3 

KKK KKK KKK KKK KR KKK KK KKK KKK KK KEK KKK KKK KKK KK KKK KR KKK KKK KKK 

* 


* Call the officer deletion program. 
* 


BO Orr ITCDEL 


3 e ceo oe oe oe oe dece ode ck oe de ce ok ode coe eoo oe ode cec oe oe ode oe eoe oe coke oe oe A 
CASE SELECTION - 4 

* 3e e eoe oe ode ode oe de oe ode oe oe ode ode oe oe ode koe de eoe de oe de de ok ode dex ox ke exo ok ok ok ok ok x kx n x kx Xx x kx ko ko ko k kk 

* 


* Call officer review program. 
* 


DO OFFICREV 


ck eoe oe oe oe oce ode coke oe ode coke oe oe ck ode cec oe ox ode oe e ok ode ook ode eoe eoe oko e eo eo ke n ke kx eo x ko x ko kx ko x ok ok k 
CASE SELECTION = 5 
* e deck oe oe oe ode ode oe oe ode eoe ok ode oe ede ck oe oe ode ode oe oce oe ode ck oe ode oce ode oe oe oe oe eco ok ke e x ke ke kx kx x x xn kx x kx x 
* 
* Return to the mainmenu program. 
* 
STORE 8 TO TRYAGAIN 
ENDCASE 
X e oe oe deck ok oe ode ok oe oe oe oe oe oce ode oe ok ode oec ooo 0o ek ok ode ode deck eoo kok ko ko ko kok k k k kk kkkkkkkk 
ENDDO WHILE TRYAGAIN = Ø 
CLEAR ALL 
CLEAR 
RETURN 


Kea KKK KKK KKK KKK KKK KKK KKK KK KK KKK KK KKK KKK KKK RRR KK KKK KEK 
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Ba. COBETCADD 


* OFFICADD.PRG 

* AUTHOR : DAVID L. HORTON MAJOR USMC 

* PURPOSE : Add new officers to the officer database 

* and current jobs database files. 

* FILE USED : Officers.dbf index officmid.ndx, ofticecnomE 
* CALLING : O£ficadd fmt, Offtnecdupstmtc, Currjadddom 

* 

* DATE LAST TIME MODIFIED =====> 13 NOVEMBER 1985 <===== 


* 

Keke KK Ke Ke KKK KK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK KKK KK KK KKK KKK 
*. CASE SELECTION = l Add A New Officer Record 

Xo oe oe eo KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK 
* 


Set up outer loop to repeat when the user wants to add 
more records. 


+ + x 


STORE Maio on 
DO WHILE MORE = 1 


Use the officers database indexed on military ID and 
walt for the user to input the military ID. 


+ + Xx x 


USE OEREICERSRIENDEX OFF ICMIDENDA 

CLEAR 

STORE = BO MM TD 

à 12,1 SAY "Enter military ID to be added: 

"(1.e. 0094366065): " GET MMID PICTURE '99999999993 
READ 

GO TOP 

SEEK UPPER (MMID) 

CLEAR 


Check for duplicate record on the database. 


* 


IP ESB EN 


* 
* Clear screen and set initial values for variables to 
* be added to the file. The M prefix indicates memory 
* varlables distinguishing them from their corresponding 
* database fields. 
* 

STORES ' TO MLNAME 

> TOD TO MENAME 

STORE TE TOT MMI 

SI ORE | TO MPGRD 

STORETS : TO MSPOGRŪ 

STORE: i TO MDOR 

STORE: i TO MPMOS 

S TORET : TOMAMOS | 


119 





LORE i TO MAMOS2 
STORE i TO MDAUSDR 
SPOREM : TO MPEBD 
STORE ' : TO MAFADBD 
STORE ' É TO MEAS 
* 
* Set-up inner loop which gives the user a chance to 
* correct the entries before adding them to the file. 
* 
STORE 1 TO CONTADDOF 
DO WHILE CONTADDOF = 1 
* 
* Using the officer add format file to produce the 
* screen display. 
* 
SET FORMAT TO OFFICADD.EMT 
READ 
* 
* Select a location at the bottom of screen and prompt 
ALOE corrections. 
* 
ACCEPT "DO YOU WISH TO MAKE ANY CORRECTIONS?"+; 
"(Y/N) ===> ". TO YN 


IF UPPER (YN)="N" 
STORE G TO CONTADDOF 
CLEAR 

ENDIF 

ENDDO WHILE CONTADDOF = Ø 


+ 


If entries are correct, add them to database. 
Wome OFF TCBERS INDEX OEETCMIDENDX, 


APPEND BLANK 


OFF ICNAM.NDX 


REPLACE MID WITH MMID 
REPLACE LNAME WITH MLNAME 
REPLACE FNAME WITH MENAME 
REPLACE MI WITH MMI 
REPLACE PGRD WITH MPGRD 
REPLACE SPGRD WITH MSPGRD 
REPLACE DOR WITH MDOR 
REPLACE PMOS WITH MPMOS 
REPLACE AMOSI WITH MAMOS1 
REPLACE AMOS2 WITH MAMOS2 
REPLACE DAUSDR WITH MDAUSDR 
REPLACE PEBD WITH MPEBD 
REPLACE AFADBD WITH MAFADBD 
REPLACE EAS WITH MEAS 


* 


da record 
* 


to current jobs database. 


DO CURRJADD 


db]: 


+ + x X 


* x x x 


ELSE 


Show the user the duplicate military ID record and 
walt for a response. 


SET TALK ON 
SET FORMATO TOROERE TADA 
READ 
WAIT 
SET TALK OFF 
CLEAR 
ENDIF 


Select a location at the bottom of the screen and 
orompt for more additions. 


ACCEPT "ADD ANOTHER RECORD? (Y/N) ===>" TO YN1 
IF UPPER (YN1)="N"” 

STORES OSLO TORE 

CLEAR 
ENDIF 


Return to calling program. 


ENDDO WHILE MORE -= 8 
RETURN 


kkkkkkkkkkkkkkkkěkkěkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkk kkk 


ln» 


Ce OFFICADD.FMT 


SEGOBEICADD.FMT 


* AUTHOR DAVID L. HORTON MAJOR USMC 
SEBURPOSE Provide the officer add format screen. 
EILE USED None 
E LING None 
* 
* DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 
* 
* Set screen format for adding a new officer record. 
* 
8 0,25 SAY " i 
@ 1,25 SAY " ADD A NEW OFFICER FORMAT " 
8 2,25 SAY "  ------------------------ s 
HEC, 25 SAY " E 
@ 7,4 SDA SIRE 
@ 7,9 SAY MMID 
C SA CNAME So GEE MENSME PICTURE Irr iia. 
ERR O O SAY CENAME:” CET MENAME PICTURE "IPIT. 
69 SAY "MIS" GET MMI PRSBURB 
a 10,4 Say 3ESRD -© OBL MSPGRD PICTURE AQT 
ENE 2] SAY "PGRD:" GET MPGRD PICTURE CASO 
@ 1,36 SAY “DOR?” GETSNMDOR EU O O 
a 13,4 SAY "PMOS:" GET MPMOS ESE O OS 
ER, 2] SAY "AMOSI:" GET MAMOSI PICTURE ‘'##+## ' 
© 13,36 SAY “AMOS2:" GET MAMOS2 PICTURE '####' 
@ 16,4 SAY "DAUSDR:"GET MDAUSDR PICTURE '#####9 ' 
IZ SAY "PEBD:" GET MPEBD PRE LURE OIT 
eto, 30 SAY “AFADBD: "GET MAFADBD PICTURE "999999" 
© 16,53 SAY "EAS:" GET MEAS PeeWee CO 


kkkkkkkkkžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


JAS 


D. 


+ X 


OFFICDUP EMT 


SERIOS UP ene 
AUTHOR 
PURPOSE 


PlLEMUSBDO 


CALLING 


DATE LAST 


Set screen format for the duplicate officer 


(o) (o) (O) (O) (CO (CO (CO (O) (O) (CO (CO (O) (CO (CD (CO (CO (cO (CO (CO (CO (CO (CO (cO (CO (cO (CO (CO (CO (cO (CO (CO (CO (CO (CD (cO 


"SHOWN ABOVE" 


0,25 
E25 
2729 
D2 
7,4 
T 
2722 
DNA 
7,48 
VDO 
1:09 
Z 
19,4 
19,11 
18,21 
1972 
10,36 
19,41 
13,4 
13,19 
bo 2 
13728 
13,36 
13,43 
16,4 
BO 12 
Log 
llo 
B6736 
16,44 
Mo 
16,58 
20,4 
20,17 
Z 


TIME T MODTETED 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


DAVID L. HORTON MAJOR USMC 

Provide the officer duplicate format screen. 
None 

None 


recordi 


"o OEFICER DUPLICATE FORMAT 


MIDE" 


MID 


"LNAME:" 


LNAME 


TENAME:" 


FNAME 
"MI . e 
MI 


"SPGRD:" 


S PGRD 


"PGRD:' 


PGRD 


DORSET 


DOR 


"PMOS L" 


PMOS 


AMOS L 


AMOS1 


SAMOS 23M 


AMOS2 


DA0SPR 


DAUSDR 
SBUBD 


PEBD 


"AFADBD: 


AFADBD 
URAS" 


EAS 


"ME PERO 


MMID 


") IS ALREADY ON TRE SOLE Lethon eer. 


e 


* kk ck deck ko AAA ke ke kx ke kx kx kx n ke KAKA RARA RA AAA AR 


* 
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E. 


+ + Xx E, 


* 


CURRJADD 


CURRJADD.PRG 
AUTHOR > DAVID L. HORTON MAJOR USMC 


PURPOSE : Add a new officer to the current job 
database file. 

HENEESUSED : Currjobs.dbt index currjmid.ndx 

CALLING eurr add: imt; CuüurrJdup imet 

DATE LAST TIME MODIFIED =====> ]1 NOVEMBER 1985 <===== 


eoe Yee oec RARA RAR RARA 


* 


SASE SELECTION = 1 Add A New Job Record 


X ove cec ATARI ALR deck ode eode dede ooo ode de n A € 


* 


* 
* 
* 


+ + + 0X4 00€ X 


+ + + + 


A + X 


Use the current jobs database indexed on military ID 
and check for duplicate record. 


USE CURRJOBS INDEX CURRJMID.NDX 
Bo TOP 

SEEK UPPER (MMID) 

CLEAR 

RE COF () = .T. THEN 


Clear screen and set initial values for variables to 
be added to the file. The M prefix indicates memory 
variables distinguishing them from their corresponding 
database fields. 


STORE © 1 ATOTMTOLINEN 
SHORE’ TO MMEC 
STORE TO MGLEDCTS 
STORE * TOS MDC TE 
STORE ' i TOSME DO 
SPORE | i TOFMEMOC 
STORE ' ' O RN 
STORE © TONMPIDBA 
STORE ' IDO PM PEIUS 
SPORE = © TO MMARST 
SPORE ~ | EOP MS EOS 7c 


Set-up inner loop which gives the user a chance to 
correct the entries before adding them to the file. 


STORE o TO -CONTADDCI 
DO WHILE CONTADDCJ = 1 


Using the current job add format file to produce the 
screen display. 


DEC CORMAT TOCCURRJADO EME 


ES 


READ 


* 
* Select a location at the bottom of screen and prompt 
* for corrections 
* 
ACCEPT "pO YOU WISH TO MAKE ANY COFRECTIONS 
" (Y/N) === ON 
IF UPPER(YN) NS 
STORE OU TO GONTADECY 
CLEAR 
ENDIF 
ENDDO WHILE CONTADDCJ = Y 
* 
* If entries are correct, add them to database. 
* 
APPEND BLANK 
REPLACE MID WITH MMID 
REPLACE TOLINENO WITH MTOLINEN 
REPLACE MCC WITASMMEE 
REPLACE GLCDCTB WITHSMGLCCOCDOCTES 
REPLACE DCTB WTE DOE 
REPLACE RTD WITASMETO 
REPLACE FMCC WITH MEMES 
REPLACE PDUl WITH MPDUL 
REPLACE PDU2 WITT EZ 
REPLACE PDU3 WITH MPDU3 
REPLACE MARST WITH MMARST 
REPLACE SPOSVC WITH E 
ELSE 
* 
* Show the user the duplicate military ID record and 
* wait for a response. 
* 
SET TALK ON 
SET FORMAT TO CURRJDURTENMI 
EDILI 
WAIT 
SET TALK OFF 
ENDTE 
* 
* 


RETURN 


Return to calling program: 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


PAÑO 


Bar CURRJADD. EMT 


* CURRJADD.EMT 
S AUTHOR : DAVID L. HORTON MAJOR USMC 
* PURPOSE : Provide the current job add format screen. 
ENEILE ÜSED : None 
* CALLING : None 
* 
* DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 
* 
* Set screen format for adding a new current job record. 
* 
D23: SAM a 
1,23 SAY " ADD A NEW CURRENT JOB FORMAT " 
2,23 SAY "  ------------------2---2------- A 
po23 SAY O " 


5,4 SAY MID" 
359 SAY MMID 

522 SAY "LNAME:" 
529 SAY MLNAME 
5,48 SAY ENAME: 
> SAY MENAME 
DO). SAY MI: 

557. 3 SAY MMI 

7,4 SAY "SPGRD:" 
nit SAY MSPGRD 
7,21l. SAY "PGRD:"” 
PZ SAY MPGRD 
7,36 SAY “DOR: ” 

n Ti SAY MDOR 

9,4 SAY CEMOS:” 
9,10 SAY MPMOS 
2721 SAY "AMOSLI:" 
9,28 SAY MAMOS1 
9,36 SAY "AMOS2:" 
9,43 SAY MAMOS2 
I4 SAY "DAUSDR:" 
IRES 12 SAY MDAUSDR 
In 21 SAY TPEBD: 
IR 2) SAY MPEBD 

EL, 36 SAY "AFADBD:" 
I4 SAY MAFADBD 
mee Ss "SAY "EAS." 
ise SAY MEAS 

ia, 4 SAY ITOLTNENO: T; 

GET MTOLINEN PICTURE '9999!9999!' 


(CO (CO (CO (CO (CD (CO (CD (CD (CD (CO (CD (CD (CD (cO (cO (CD (CD (CD (cO (CD (cO (CD (cO (CD (CD (O) O) (O) O (O (DD (0D O 


HEBEL 25 SAY MEC: SETI MMES PICTURE 'NNN' 
INES 2 SAY "SUCOCTE>" "GET MELEDETB PICTURE "9999" 
ada (SAY "DOTB:." GETE EMDC TB PrCRUR Ge 999999) 
ER GI SAY "RTD:' GETIMEBTD PICTURE '#####9' 
@ 16,4 SEE a CC c GET mec PLOTURE TENti 


ey 


16715 SAY Pons “GET MPDUI PICTURE Fr 

16,26 SAYS EDU: GET MPDU2 PICTURES ita 

16,37 ¿SAY PDU GET MPDU3 PICTURE -= 

16,48 -SAY YMARST: = GET MMARST PICTURE TAN 

16,58 SAY TSPOSVC i GET MSPOSVG (BECTURE NE 

18,4 SAY Wkkkkkkkkákkkkkkkkkkkkkkkkkkkkkkkikkkkkkkkkákh 


18,46 SAY Nkkkkkkkkkkkkkkkkkkkkkkkx™ 


19,4 SAY "* OFFNOTES - CAN BE EDITED DURING THE CEA 
19,46 SAY "ENT JOB UPDATE PROCESS *" 


20,4 SAY ÚUX*XKXXKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKkkkkkxko0 
20,46 SAY NkkkkkkkkkkkkkkkkkkkkkkkKkě™M 


22,4 SAY TOEFNOTES:" 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


DOD (O) (O) (O) (QD (©) (©) (QD (QD (©) (A 
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G. CURRJDUP.FMT 


EM URBJDUP,FMT 
AUTHOR :D 
pee URPOSE > E 
A S 
SE TEE USED : N 
* CALLING : N 
* 
* DATE LAST TIM 
* 
St screen fo 
* 
EBD 0,25 SAY 
8 1,25 SAY 
[E 2,25 SAY 
8 3,25 SAY 
a 7,4 SAY 
@ 7,9 SAY 
a 10,4 SAY 
a 10,14 SAY 
8 109,25 SAY 
a 10,30 SAY 
a 10,34 SAY 
a 10,43 SAY 
a 10,48 SAY 
a 10,54 SAY 
a 10,61 SAY 
a 10,66 SAY 
8 13,4 SAY 
EE 5,10 SAY 
ES, 15 SAY 
85,21 SAY 
a 13,26 SAY 
Mees, 32 SAY 
DE 5,57 SAY 
5,43 SAY 
a 13,48 SAY 
© 13,55 SAY 
a 13,58 SAY 
ES, 60 SAY 
a 15,4 SA 
A 15,46 SAY 
a 16,4 SAY 
a 16,46 SAY 
a 17,4 SAY 
a 17,46 SAY 
a 19,4 SA Y 
a 22,4  .SAY 
Soo Shy 
822727 SAY 


AVID L. HORTON MAJOR USMC 

rovide the current job duplicate format 
creen. 

one 

one 


E MODIETED ZA NOVEMBER) 19857< 


rmat for a duplicate current job record. 


CURRENT JOB DUPLICATE FORMAT 


— eZ = oo eo e å E E E NN E Jd E E e e e U io e e 1 I M S oe 


“MID . “ 
MID 
ETOLINENO:” 
TOLINENO 
"MOCC? “ 
MCC 

E DCM: 
GLCDCTB 
SES 
DCTB 

M TTD e " 
RID 
APMC: 
EMCC 
"PU" 
PDUI 
PIDUA;" 
PDU2 

"PDU 33" 
PDU3 
VSA 
MARST 
MSP. 
SPOSVC 


M ox Xo oc ooo ok ok ok ok ok ox x ok ok ok ok okok k k kkkkkkkkkkkktktktktktkx*kkrxkM 
Uk ok kk koxkkkkkkxkkkkxkxM 


"* OFFNOTES | EDIT - ^PGDN | EXIT - ^PGUP 
" CONTINUE - ^END *" 


Vk eo ook eoo oo ox ok ko deo o ko ko x oko kok ko k k k kkkkkkkkkkkkrkkrxM 
Mox ck oe ck koe ke x ck X kk ko k kk kk 


"OFFNOTES:" GET OFFNOTES 

"MILITARY ID (" 

MMID 

") IS ALREADY ON THE CURRJOBS.DBF AS 


— fred 


up 


Iu 


"SHOWN ABOVE" 


KXKAKKKKKKKKKKKKKKKKKkKKKKkkKKKKKKKKKKKKKKKKkKKkKKKKkkkkkkkkkkkxk 
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ho OPF [CUPD 


OFFICUPD.PRG 

«AUTHOR > DAVID L. HORTON MAJOR USMC 

PURPOSE Update an existing officer record in the 
officer database file. 

OBE 1 cets.cdot index otrticemid.nax, officnam;ndax 
Crec op sabi túndex  currimid.adx 

BALL ING : Officupd.fmt 


* 
* 
* 
$ 
DESEE USED 
k 
* 
x 
* 


DATE LAST TIME MODIFIED =====> 13 NOVEMBER 1985 <===== 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
EECASE SELECTION = 2 Update Existing Officer Record 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkk 
* 


Set-up outer loop to repeat when the user wants to update 
more records. 


+ + x 


EBORE TUO MORE 
DO WHILE MORE = 1 


Use current Jobs database indexed on military identifica- 
tion number and store the officer's current Job 
Information and check for no record found. 


+ + + + x 


USE CURRJOBS INDEX CURRJMID.NDX 

CLEAR 

STORE ' ' TO MMID 

8 12,1 SAY "Enter military ID to be updated"+; 

ENG c 220925060005 : "COEPIAMMIDOPECTURIS "99999999991 
READ 

GO TOP 

SEEK UPPER (MMID) 

CLEAR 


+ 


Check for no record found on the database. 


Bee bOr () = .T. THEN 
SET TALK ON 
Geel SAY MIBITARY IDENTIFICATION NUMBER. (" 
A3 SAY  MMTD 


OOA SAY “yy NOT FOUNDION CURRIOBSODBE * 
WA IT 
SET TALK OFF 

ELSE 


STORE TOLINENO TO MTOLINEN 
SMOE MCC TO MMCC 

STORE GLCDCTB TO MGLCDCTB 
SMOE EB TO MDCTE 

STORE RID TO MRTD 


EZ 


+ + + x X 


+ + + He x 


* + + x 


MEMES 
MPDUL 
PDU2 TO MPDU2 
PDU3 TO MEDU3 
MARST TO MMARST 
SPOSVC TO MSPOSV 


EMEC 
PDU 1 


TO 
TO 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


Use officers database indexed on military identification 
number using the officer's military identification number 
provided by the user. 


USE OBE LCH SND OBE ECM PD) 
SOMOD 
SEEK UPPER 


OFF ICNAMT NDX 
(MMID) 


Check for no record found on the database. 


TE TEORIA JI DEIN 
SET TALK ON 
a 21,1 SAY " MILITARY IDENTIFICATION NUMBER aus 


arial SAT MTO 

a 21,43 SAY ") NOT FOUND ON OFFICERS Dota. 
WAIT 

SET TALK OFF 


CLEAR 
ELSE 


Storing the old record to a work recordare 


The M 


prefix indicates memory variables distinguishing them 
from their corresponding 


database fields. 


STORE LNAME TO MLNAME 
STORE FNAME TO MFNAME 
SORE I PORN 
STORE =P GRD TOT TPS 
STORE SPGRD TO MSPGRD 
SPORE T DOR TO MDOR 
STORE PMOS TO MPMOS 
STORE AMOSI TO MAMOST 
STORE AMOS 2 TO MAMOS 2 
STORE DAUSDR TO MDAUSDR 
STORE PEBD TOC MPEBD 
STORE AFADBD TO MAFADBD 
STORE EAS TO MEAS 


Set-up inner loop which gives the user a chance to 
correct the entries before updating the file. 


STORE TO CONTUPDOE 
DO WHILE CONTUPDOF = 1 


i22 


Using the officer update format file to produce the 


A 


screen display. 


x* 


SBT BORMNI “10 -OF FLEUR. EMT 


Select a location near bottom of the screen and prompt 


ACCEPT "DO YOU WISH TO MAKE ANY CORRECTIONS? '+; 


READ 
* 
* 
or corrections. 
* 
' (Y/N) === TO YN 
ER UPN) 
STORE OO LOC ONTUEDOE 
CLEAR 
ENDIF 
ENDDO WHILE CONTUPDOF = 
* 
* 
* 
REPLACE MID WITH 
REPLACE LNAME WITH 
REPLACE FNAME WITH 
REPLACE MI WITH 
REPLACE PGRD WITH 
REPLACE SPGRD WITH 
REPLACE DOR WITH 
REPLACE PMOS WITH 
REPLACE AMOS] WITH 
REPLACE AMOS2 WITH 
REPLACE DAUSDR WITH 
REPLACE PEBD WITH 
REPLACE AFADBD WITH 
REPLACE EAS WITH 
ENDIF 
ENDIF 
* 
* 
EN OF more updates. 
* 
ACCEPT 'UPDATE ANOTHER RECORD? 
IF UPPER(YN1) = 'N' 
STORE d TO MORE 
CLEAR 
ENDIF 
* 
Return to calling program. 
* 


ENDDO WHILE MORE = @ 
RETURN 


Storing the corrected edit fields from the work area. 


MM ID 
MLNAME 
ME NAME 
MMI 
MPGRD 
MS PGRD 
MDOR 
MPMOS 
MAMOS 1 
MAMOS 2 
MDAUSDR 
ME ES 
MAFADBD 
MEAS 


Select a location at the bottom of the scrsen and prompt 


(Y/N) ===> PON 


kkkkkkkxkkkxkkkkkkkkkkxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


12 


I.  OEBICUBDAE“MT 


* QUE RCDEDRENE 


* AUTHOR : DAVID L. HORTON MAJOR) USME 
* PURPOSE : Provide the officer update format screen. 
* FILE USED" None 
* O AEE : None 
* 
* DATE LAST TIME MODIFIED =====> 19 NOVEMBER 1985 <===== 
* 
* Set screen format for updating an officer's record. 
* 
a 0,27 SAY " M 
da 1,27 SAr CO POERICER UPDATE FORMATI 
A 2,27 SAY " --------------------- " 
d. 3:27 2A ES A 
QNS 4 SAY "MID:" 
a 579 SAY MMID 
@ 5, 2200 SA NAME: "T; 
GET MLNAME PICTURE 't!tr!t t me. 
a 5,48 SAY "ENAME:" GET MENAME PICTURE Srono 
@ 5769 RSA TE GET MMI PLEMU RES e 
a 7,4 SAY “SPGRD:" GET MSPGRD PICTURES AST 
a 721 SAY "PGRD:" GET MPGRD PICTURE. CASS 
d 30 POR GET MDOR PICTURE 5 
(à 9,4 SAY "PMOS:" GET MPMOS PICTURE coe 
© 9,21 SAY "AMOS1:" GET MAMOS1 PICTURE Eid! 
a 9,36 SAY "AMOS2:" GET MAMOS2  PIOGURE 4444" 
a 11,4 SAY "DAUSDR:"GET MDAUSDR PICTURE '#####9' 
ü 11,21 SAY “PEBD: SMED PICTURE "999999" 
@ 11,26 SAY "AFADBD:“"GET MAFADBD PICTURE "9999991 
d 11,539] SANTAS GET MEAS PICTURE eee. 
arrasa SAY "TOLINENO:" 
a 14,14 SAY MTOLINEN 
a 14, 250 EE: 
e 14,30 SAY MEC 
d 14, 34 AW GECDCTB:" 
a 14,43 SAY MGLCDCTB 
d 14,4229 S DE TB: > 
d 14,54 SAY IMDCTB 
© 14,65" 5D: 
a 14,66 SAY MRTD 
a 16,4 SAYE PMCC:" 
@ 16, LURS SATENE MCC 
@ 16, LIS AE DUES 
8 16,21 SAY MPDUL 
a 16,720 SANDS 
a 16,320 SAY MPDUR 
ad 16,310 SAO 2 Sn 
d 16,43 SAY MPDU3 
@ 16,48 SAY "MARST:" 
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555 
16758 
16,66 
18,4 
18,46 
19,4 
19,46 
20,4 
20,46 
22,4 


(CD (CD (CO (CD (CD (CD (CD (CD (CD (cO 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


MMARST 
"SPOSVC:" 
MSPOSVC 


WNkkkkkk kkk kk keke kkk AA AAA AAA kde 
NWNkkkkkkkkk keke kee KK KEK KKK KEK EN 


R OPENOTES = wean BE EDITED! DURING. THE CURR" 
"ENT JOB UBBATE PROCESS *" 


AK K RÁZ AAA RARA RARA KEK EN 
AD RS DS DR KKK KÁKkKkáÁK 


OBE NOTES 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk*kxkxk 


22.5 


J. 


+ + + XR 00€ X XR o 


* 


OFF ICDEL 


OFEICDECTERG 


AUTHOR "DAVID L.: HORTON MENOR DEME 

PURPOSE : Delete an existing officer record in the 
officer and current job database files. 

FILE USED : Officers -IJADE indek oreen 

CALLING ; Offiedel- ime, Currtydel erg 

DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


kak keke RRR KKK RRR AAA AAA RRA K o deck ox ok deo dee ode oko de de deo ko ko ko do ko ko ck k k kkkkk 


* 


CASE SELECTION = 3 Delete An Existing Officer Record 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


* 


* 
* 
* 


+ + + + + 


A 


+ 


Set-up outer loop to repeat when the user wants to delete 
more reccrds. 


STORE Q TO DELFLAGI 
STORE Ø TO DELFLAG2 
STORE. 1 TOPMORE 

DO WHILE MORE = 1 


Use officers database indexed on military identification 
number and wait for the user to input the officer's 
military identification number. 


USE OFFICERS INDEX OFF ICMIEDA NDA 

CLEAR 

STORE * "TO TMMTD 

a 12,1 SAY "Enter military ID to be deleted"+; 

" (i.e. 0094366065): " GET MMID PICTURE '9999999999' 
READ 

GO TOP 

SEEK UPPER (MMID) 

CLEAR 


Check for no record found on the database. 


LE EOR TEN 
SET TALK ON 
à 21,1 SAY PMILITARY IDENTIFICATION NUMBER 
@ 21,34 SAY MMID 


@ 217445). NOT FOUND ON ORE ICEBERGS] DDE a. 
WAIT 
SET TACK OEE 
CLEAR 
ECSE 


Using the officer delete format file to produce the 
screen display. 


P26 


SLL- EORMAT TO OFFICDEL-EMT 
READ 


Select a location near bottom of the screen and prompt 
for deletion and deletion confirmation. 


+ + + ox 


eC EPT 'DO roU Wish To DELETE This Record?'+; 
' (Y/N) === TON 
IF UPPER (YN) = 'Y' 
ACCEPT "ARE YOU SURE YOU WANT TO DELETE THIS'+; 
RECORD AN TO SURE 
IF UPPER (SURE) y 
DELETE 
STORE TI TOTDELFLAGI 
DO CURRJDEL 
ENDIF 
ENDIF 
CLEAR 
ENDIF 


Select a location at the bottom of the screen and prompt 
for more deletions. 


+ + + x 


PeG@PT ‘DELETE ANOTHER RECORD? (Y/N) ===> ATO YNI 
IF UPPER (YN1) = 'N' 

STORE Y TO MORE 

CLEAR 
ENDIF 


x 


Return to calling program. 


ENDDO WHILE MORE = 0 
CLEAR 
IF DELFLAG2 = 1 THEN 
AE 2 SAY T ONE “MOMENT PLEASE. *MERASING DELETED"+; 
IR RECORDS I 
PACK 
ENDIF 
IF DELFLAGL = L THEN 
teu OBETCERS. INDEX OFEICMID.NDX 
E NY V ONE MOMENT PERASE CO CMMERASING DELETED" +; 
ENEECORDS * 
PACK 
ENDIF 
CLEAR 
RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


12.7 


OFEFICDELS EMT 


OEEICDERSEMT 
AUTHOR 
PURPOSE 


EICETUSED 
CALLING 


(a) O (O (CD (CD (CO (CD (CD (CD (CD (CO (CO (CD (CD (CO (CO (CD (CD (CD (CO (CO (CO (CO (CO (cO (CO (CO (CO (CO (CO (CO (CO 


O2 
ieee 
Zee 
Z 
7,4 
D 
7,22 
VP) 
7,48 
1739 
7,69 
Ta 
19,4 
DONE 
19,21 
10,27 
19,36 
19,41 
13,4 
13,10 
Loree 
1534/25 
13,36 
13,43 
16,4 
16,12 
Boz 
16,27 
16,36 
16,44 
Eos 
16,58 


SAY 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SAY 
SAY 
SA Y 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SA Y 


. SAY 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


DAVID L. HORTON MAJOR USMC 


Provide the officer delete format screen 


None 
None 


A A A A oD oD oD ee eee ee P P 


ODE $" 
MID 
RENAME: “ 
LNAME 

P ENAME : 
FNAME 
"MT e "n 

MI 
"SPGRD:" 
SPGRD 

RR Co 
PGRD 
“DOR: "n 
DOR 
"PMOS:" 
PMOS 
"AMOS1:" 
AMOS 1 
MANOS. Zo" 
AMOS 2 
-DAUSDR:" 
DAUSDR 
SPEED © 
PEBD 
PABRADBD: 
AFADBD 
"RAS: LET 
EAS 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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L. 


X 2X 2 AH 


* 


CURRJDEL 
CURRJDEL.PRG 
AUTHOR > DAVID L. HORTON MAJOR USMC 
PURPOSE : Delete an existing officer record in the 


current job database file. 


meee USED : Currjobs.dbf index currjmid.ndx 
CALLING s Curr dels imt 
DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


eoe oe oe ce oe de eode oe oe ode oe oe oe oe oe ode oe ode oe ode oe oe ode oe oe ode oo oe oo oe ode oe oe oe eoe oko de oe e de xe x de xA n kx x xn x xk 


* 


CASE SELECTION = 3 Delete An Existing Current Job Record 


*c Je e de oe e e de de de e oe de oe de eoe de e de de e de dece ode dede e eoe ke oe oe ode de eode eoe oe de de e de xe ke kx ke kx kx kx x kx kx x x kk 


* 


+ x + 4 x ox * * + + + X 


+ + 


Use current job database indexed on military 
identification number and take the officer's military 
identification number supplied by the user and find the 
record. 


ESESCURRJOBS INDEX CURRJMID.NDX 
GO TOP 
peek UPPER (MMID) 


Check for no record found on the database. 


Mee SOF (1) = .T. THEN 
SET TALK ON 
@ 21,1 SAY “ MILITARY IDENTIFICATION NUMBER (” 
0721,34 SAY MMID 
ERP JqTCSAYSUY NOT FOUND ON CURRJOBS. DBP * 
WAIT 
SET TALK OFF 

ELSE 


Sana the current job delete format file to produce the 
screen display. 


SE FORMAT TO CURRIDEL.EME 
EDIT 


Delete record and set delete record flag. 
DELETE 
STORE 1 TO DELFLAG2 

ENDIF 


Return to calling program. 


CLEAR 
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RETURN 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkxk 
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M. 


+ ox XR OR OX He XR HF € X X 


CURRJDEL.FMT 

GUERRJDEL.FMT 

AUTHOR > DAVID L. HORTON MAJOR’ USMC 

PURPOSE : Provide the current job delete format 
screen. 

FILE USED : None 

CALLING : None 

DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 

Set screen format for deleting a current job record. 

20,25 SAY * H 

(d S A SAY T TT CURRENT JOB DELETE FORMAT -" 

© 2,25 SAY " -----------.-------------- J. 

Ec 25 „SAY " " 

a 7,4 Sa "MIDI 

uA 7,9 SAY MID 

a 10,4 SANO TOLENENOS" 

© 10,14 SAY TOLINENO 

BERROS SAY "MEC." 

ero, 39 SAY MCC 

ee, Soe SAY "GLCDCTB:" 

a 10,43 SAY GLCDCTB 

ag, 48 SAY "DCTB:" 

@ 10,54 SAY DCTB 

meee, ol SAY "RTD:" 

@ 10,66 SAY RTD 

@ 13,4 SAX LCC: 

HE 3,10 SAY FMCC 

-353,15 SAY "PDUI:" 

PES ,21] SAY PDUL 

ERR 26 SAY "PDU2:" 

E 3,32 SAY PDU2 

DE. 37 SAY "PDU3:" 

@ 13,43 SAY PDU3 

ES”, 48 SAY "MARST:" 

Oo SAY MARS5T 

ees woo. SAY "SPOSVC:" 

3,66 SAY SPOSVC 

(a lisa SAY 1 eo eode oko ok koe ok koe ck oe ok ode ok ok dede ck ok oko kokokok o kok k kkkkk*kk! 

(a 15,46 SAY Nkkkkkžkkkkkxkkkkkkkxk*x" 

@ 16,4 SA M “OPE NOLES | EDIT - “PGDN | EXIT - ^PGUP ps 

a 16,46 SAY " CONTINUE - "END *" 

(a 17,4 SAY Uekkeke keke KEK KKK KKK KEKE KKK KKK KKK KKK KR KKK KKK RRR EN 

(a 1246 SAY Hox ox ck de dedekokokokokkkkkkkM 

@ 19,4 SIS Ore NOES. SE OE NOM ES 

na 1 1 SD TIBI GUPRENT JOB (REGORD ORSMID (* 

SME 7300 "SAY MMID 


kol 


@ 21,40 SAY ") 1S ALSO BEING DELETED 


EERXKRKKKKKKKKKK KK KKKKKKKKKKKKKKKKKKKkkkkkkkkkkkxkkkkkkkkkkkkux 


2 


N. 


+ DP ME ME MEMO MO MD 


+ 


DOERTCREV 


WAETEREV. PRG 
AUTHQR : DAVID L. HORTON MAJOR USMC 


PURPOSE : Review an existing officer record in the 
officer and current job database files. 
EEE” USED :; Offlcers.dbf index officmid.ndx 
Cum 1obs-dbt (inde x currada nas 
CALLING  OBbrerev,Emt 
DATE LAST TIME MODIFIED =====> 10 NOVEMBER 1985 <===== 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


* 


CASE SELECTION - 4 Review An Existing Officer Record 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


* 


+ Xx x 


* *oX OX X x 


+ X* X X X 


Set-up outer loop to repeat when the user wants to review 
more records. 


SBOR: L TO MORE 
DO WHILE MORE = 1 


Use officers database indexed on military identification 
number and wait for the user to input the officer's 
military identification number. 


BE OFFICERS INDEX OFFICMID.NDX 

CLEAR 

STORE ' ' TO MMID 

a 12,1 SAY "Enter military ID to be reviewed"+; 
Mie. 0094366065): " GET MMID PICTURE 19999999999! 
READ 

GO TOP 

SEEK UPPER (MMID) 

CLEAR 


A 


Check for no record found on the database. 


ME EOE () = .T. THEN 
SET TALK ON 
O eG kT ARY IDENTIFICATION NUMBER C^ 
@ 21,34 SAY MMID 


PSA DV) NOT FOUND ON OEEICERS.DBFE " 
WAIT 
SEL TACK OBE 

ELSE 


Storing the old record to a work record area. The M 
prefix indicates memory variables distinguishing them 
from their corresponding database fields. 


P3 


+ A A E A X 


+ + + 


STORE 
STORE 
STORE 
SINO RE 


LNAME 
FNAME 
MUSTO 
SPGRD 


TO MLNAME 
TOME NAMES 
MMI 

TO MSPGRD 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


PGRD TO MPGRD 

DOR TO MDOR 

PMOS LO ETOS 
AMOS1 TO MAMOS 1 
AMOS2 TO MAMOS2 
DAUSDR TO MDAUSDR 
PEDE TONMPEBD 
AFADBD TO MAFADBD 
EAS TO MEAS 


Using the officer review format file to produce the 
screen display, showing both officer and current job 
information to the user. Checking also for no record 
found in database. 


USE CURRJOBS INDEX CURRIMIDENDA 
GO TOR 
SEERSUPPEROSSMMDD) 
IF BOR WO) me THEN 
SET TALK ON 
@ 21,1 SAY " MILITARY IDENTIFICATION NUMBER Se 
@ 21,34 SAY MMID 
@ 21,44 SAY ") NOT POUND ON CURRVUCES Dee. 


WAIT 

SET TALK OFF 
ENDIF 
DEE OP A LTO COPE ICREV. Sit 
EDIT 


ENDIF 


Select a location at the bottom of the screen and prompt 
for more revlews. 
ACCEPT 'REVIEW ANOTHER RECORD? ===> "TORA 
IF UPPER(YN1) = 'N' 

STORE Y TO MORE 

CLEAR 


ENDIF 


(Y/N) 


Return to calling program. 


ENDDO WHILE MORE = Ø 
RETURN 


KKKKKKKKKXXKKKKKKKKKKKKKKXKKKKKKKXkkxkkkkkkkkkkkkkkkxkkxkxkxx ox 
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O. 


H* A ACA CAC CACA x 


OFFICREV.FMT 
DECICREV. EMT 
AUTHOR DAVID Ls HORTON MAJOR USMC 
PURPOSE : Provide the officer review format screen. 
FILE USED None 
CALLING None 
DATE LAST TIME MODIFIED 
Set screen format for reviewing an officer's record. 


(CO (CO (CD (CD (CO (CD (CO (CD (CD (CD (CO (CO (CO (CO (CO (CO (CD (CO (CO (O) (O) (O) (O (CO (pO (CD (CO (CD (cO (CD (CO (CO (cO (CD (CO (CD (c0 (CO (co 


0,27 
27 
2721 
32 7 
5,4 
5, 9 
M22 
529 
5,48 
5129 
5,69 
55773 
7,4 
e UL 
mI 
E 
ps6 
7,41 
9,4 
2, LU 
9-24. 
2,26 
9736 
9,43 
11,4 
Ea 
II 2l 
in 27 
iu 36 
11,44 
Po 
11,58 
14,4 
14,14 
11,25 
14,30 
14,34 
14,43 
14,48 


SA Y 
SAY 
SAY 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SAY 
SAY 
SA Y 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


£ OFEFEICER REVIEW FORMAT 


"MID e n 
MMID 
ENAME. 
MLNAME 
“ENAME: ” 
ME NAME 
"mI e " 

MM 1 
USPGRD:" 
MS PGRD 
"PGRD:" 
MPGRD 
"DOR: m 
MDOR 
"PMOS 
MPMOS 
SAMOS L 
MAMOS 1 
"AMOS23" 
MAMOS 2 

PDA US DE 3 
MDAUSDR 
"PEBBDS" 
MPEBD 
"AFADBD:" 
MAFADBD 
"PAS e 1 
MEAS 
FTOLILMNENOS >" 
TOLINENO 
IMG e 
MOS 
SBEDCTBS" 
GLCDETB 
PDG MD 


IES ips. 


(ad (a) (O) (O) (QD (CD (QD (QD (QD (QD (QD (QD (QD (QD (CD (QD (QD (QD (CD (QD (OD (CD 


14,54 
14,61 
14,66 
16,4 

16,19 
16,15 
Leyes 
16,26 
16,32 
W673 / 
16,43 
16,48 
16793 
16,58 
16,66 
18,4 

18,46 
19,4 

19,46 
20,4 

20,46 
22,4 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


DCTB 

LE RTD e n 
RTD 
PEMCC 
EMC CE 
ongs 
PDUI 
"PIUZ 
PDU2 
Epp: 
PDU3 
"MARST:" 
MARST 

"VS PÓS ves 
S POSVC 


TAXKKKKKKKKXKKKKKKKKKKKKKKKKKXKKKKkKkkxkkxkkxkxxkxkxxko0 
Wekekkkkkkkke x x x x xt x kx kx XM 


EO ENGINES EDIT - “PGDN | EXIT 


" CONTINUE - “END >" 
Nkkkkxkkxkxkkkkkkkkkěžkkkkkkkkěkkkkkkkkkkěk*ěkkkěkkk*ġkk™ 


Wkekkkkk kkk kk kx kx kx kx kx XX Ul 


TORBENOTES:" GET (OBE NOTES 


^PGUP D 


kak kkk kkk KK Ke KR KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KEE 


t36 


APPENDIX D 


CURRJOBS MODULE LISTINGS 


A. CURRJCMD 


CURRJCMD.PRG 


AUTHOR > DAVID L. HORTON MAJOR USMC 

PURPOSE : Maintain the current job database file. 
FILE USED : None 

CALLING CUE Upa pES 

DATE LAST TIME MODIFIED ====> 25 OCTOBER 1985 <===== 


Display the process menu to the user and wait for the 
selection. 


+ + x 


STORE 0 TO SELECTION 

STORE l TO TRYAGAIN 

DO WHILE TRYAGAIN = 1 

CLEAR 

(a BELO SAY "=z=z============================" 

(a 3,40 He n- ee ee 

M6, 17 SAY " MAINTAIN CURRENT JOBS FILE t 
Q 7,17 SAY " |.  -------------------------- i 
HEEL] SAY ™ 1) UPDATE an existing current job record " 
HE». 17 SAY " 2) RETURN to the main menu 3 
2 


9 
INPUT "Enter your selection (1-2) ===> * TO SELECTION 


* 


Erocess routine based on the user's selection. 


DO CASE 


Á AZ aaa KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK aK KK KR KEK 
PASE SELECTION = 1 

kk kk kk ká kiki kiki kk kk kikki kk kk kk kk kkkkkkkkkkkkkkkkkkkk 

* 


* Call the current jobs update program. 
x 


DO CURRJUPD 


wKaeke kak kek keke AA RR e 


CASE SELECTION = 2 


X e oe RARA AAA RA AA AA AA ACA A A A kx X 
* 


* Return to the mainmenu program. 


7 


STORE © TO TRYAGAIN 

ENDCASE 
kkkkkákkákkkíkkkkkkákkikkkíkkikkíkíkkkkkkkkikkikíkkíkíkíákikkkikk ke 

ENDDO WHILE TRYAGAIN = Ø 

CLEAR ALL 

CLEAR 

RETURN 


* ook oec oe oko eee eoe ox oko eoe oe oe oe oe oo eoe oe oe o eo eoe ooo eoe eoe e x kx x xo koe oo A x A dA A Xx xA xA xA x xA xXx 
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B. 


+ + 0OROOR OR XR 0E 0E X 


* 


CURRJUPD 


CURRJUPD. PRG 


AUTHOR 7; DAVID Ls. HORTON MAJOR USMC 

PURPOSE : Update an existing current job record in the 
current job database file. 

ENDE USED : Officers.dbt index" otfty)cmid.ndx 
CüurrJobs abf index-currjmid. ndx 

SELLING  : Currjupd. fmt 

DATE LAST TIME MODIFIED =====> 1% NOVEMBER 1985 <===== 


coco ooo ook oo e o oko oo ook ok o x x ko ko ko o o ko ke x kx x ok KZ ko ke de ok ke ke xn xn HH 


* 


CASE SELECTION = 1 Update Existing Current Job Record 


KAZ ZK Á RR RARA RARA RR KEKE 


* 


* 
* 
* 


+ + + + + 


* 


Set-up outer loop to repeat when the uSer wants to update 
more records. 


STORE L TO MORE 
DO WHILE MORE = 1 


Use officers database indexed on military identification 
number and store the officer's information and check for 
no record found. 


Dios, OFFICERS INDEX OPFICMID:NDX 

CLEAR 

STORE ETTO -MTD 

a 12,1 SAY "Enter military ID to be updated"+; 
Nie: 10092306065): " GET MMID PICTURE "9999999999! 
READ - 

GO TOP 

seen UPPER (MMID) 

CLEAR 


Check for no record found on the database. 


I Soc) s .T. THEN 
SET TALK ON 
CUN IMS SAY UMPSITARYOBEENTIPEICATIONCNUMBERS.C! 
a 21,34 SAY MMID 
Sl aa Say) NOT COUNDRON OFFICERSEDBE * 
WAIT 
SEBE ODE 
ELSE 
STORE LNAME TO MLNAME 
STORE FNAME TO MENAME 
STORE LID PO MMI 
SIDORBECPGRD TO MPGRD 
SBOREC SBGRD TO MSPCRD 


l9 


+ + E x 


+ 


+ oF OF OF OF 


+ F ob x 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


DOR £0 MOOR 

PMOS TO MPMOS 
AMOS1 TO MAMOS1 
AMOS2 TO MAMOS2 
DAUSDR TO MDAUSDR 
PEBD TOSMEEBD 
AFADBD TO MAFADBD 
EAS TO MEAS 


Use current job database indexed on military 
identification number using the officer's military 
identification number provided by the user. 


USE CURRJOBS INDEX CURRJMID.NDX 
GOTO 
SEEK ODE 5: MED) 


Check for no record found on the database. 


IF EOF () = .T. THEN 
SET TALK ON 
a 21,1 SAY " MILITARY IDENTIFICATION NUMBER (" 


Q 21,34 SAY MMID 
@ 21,44 SAY ™) NOT FOUND CON GURRSNOBSODDEC 
WAIT 
SB TALK OFF 
CLEAR 
ELSE 


Storing the old record to a work record area. The M 
prefix indicates memory variables distinguishing them 
from their corresponding database fields. 


STORE TOLINENO ROBOT 
SORE see TO- MMCC 
STORES GUCDCTE TOOMGECIDPCTI 
STORE DEB PO MDC 
STORE. RED TO MRTD 
STORE PDUI TO MPDUI 
STORE PRUZ TO MPDU2 
STORE PDU3 TO MPDU3 

Ss LORE =a Mee LO SMe Mee 
STORE MARST EO MMAR Se 
STORE SPOSVE RO MISES 


Set-up inner loop which gives the tserta chance 
correct the entries before updating the file. 


STORE OOM BD OE 
DO WHILE CONTUPDOF = 1 
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+ + 


CHA 


* 
* 
* 


+ + + + 


Sims the current job update format file to produce the 
Screen display. 


SET FORMAT TO CURRJUPD.EMT 
EDI 


Select a location near bottom of the screen and prompt 
hon corrections. 


ACCEPT DO NSOUNWISH TO MAKE ANY CORRECTIONS 2?" +4; 
' (Y/N) === ' TO YN 
IF UPPER (YN) = 'N' 
STORE Q TO CONTUPDOF 
CLEAR 
ENDIF 


ENDDO WHILE CONTUPDOF = 9 


Storing the corrected edit fields from the work area. 


REPLACE TOLINENO WITH MTOLINEN 
REPLACE MCC WITH MMCC 
REPLACE GLCDCTB WITH MGLCDCTB 
REPLACE DCTB WITH MDCTB 
REPLACE RTD WITH METODO 
REPLACE PDUL WITH MPDUL 
REPLACE PDU2 WITH MPDU2 
REPLACE PDU3 WITH MPDU3 
REPLACE FMCC WITH MEMCC 
REPLACE MARST WITH MMARST 
REPLACE SPOSVC WITH MSPOSVC 
ENDIF 
ENDIF 
Select a location at the bottom of the screen and prompt 
for more updates. 
ACCEPT 'UPDATE ANOTHER RECORD? (Y/N) ===> " TO YN1 


IF UPPER(YNl1) » 'N' 
STORE Y TO MORE 
CLEAR 

ENDIF 


poturn to calling program. 


ENDDO WHILE MORE = 9 
RETURN 


ook oo ook oko ko ko o kokokok ko ko kokokokokoko kokokokok ko kk okokok ko kk kk ko kk ko kk ko kk kk kkkkkkkk 
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C. SCURRSUBPBDTZTBHMT 


* CURE TUBOS 


* AUTHOR > DAVID L. HORTON MAJOR Nome 
* PURPOSE : Provide the current job update format 
screen. 
* FILE USED : None 
* CALLING : None 
* 
* DATE LAST TIME MODIFIED =====> 10 NOVEMBER 1985 <===== 
* 
* Set screen format for updating a current job record. 
* 
0r 25 SAXI M 
1,25 SAY " CURRENT JOB DEBATE FORMATS 
2,25 SAY "  ------------------------- de 
329 SN TE d 


5,4 SAY AMD 1 
S SAY MMID 

5,227 SAY “LAME cee 
5,29 SAY MLNAME 
5,48 -SAY ENASMESS 
5,55 SAY MENAME 
5.169 SAM EUMD: 
55:28 SAY MMI 

7,4 SANS PS RDA 
7,11 SAY MS PERD 
Tub SAY PORD 
1,27 SAY MPGRD 
156 SAY DOR 
7,41 SAY MDOR 

9,4 SAY "PMOS:" 
9,10 SAY MPMOS 

9 523 SAYS AMOS L: " 
9,28 SAY MAMOS1 

Ty IIA ANOS 2." 
OUT SAY MAMOS2 
LA SAY “DAUSDREM 
11,12 E- AYT MDAUSDR 
11,2 MEAY GERSD:" 
LV 20 SAY MPEBD 
11,36 MEM UAPADED:? 
11,44 SAY MAFADBD 
11,535 MERAS D 
11,58 SAY MEAS 

lida SAY LOLINENG >. > 

GET MTOLINEN PICTURE "9999199991 


DADA DAD DOA (CD (cO (cO (cO (CO (cO (CD (cO (QD (cO (CD (CD (CO (cO (CD (cO (CD (CD (CD (CO (CD (cO (CO (CD 


@ T4725" A ieee SEO PICTURE "NNN 

a 14,34 SAY "GLCDCTB:" GET MGECBCTBEGETGT E 5 

@ 14,48 SAY Dele GET MDCTB PICTURE 999999 
a. -l4, cl esky Rib. GETEMRTD PICTURE CSS 2. 
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16,4 oM EMEC s* GET MFMCC PICTURE Cio 

BG LD SAY “oDUIS" GET MPDUL PICTURE bb 

M6720 SAY "PDU2:" GET MPDU2 PICTURE tit 

Moye? SAY TPDU3:" GET MPDUj PICTURE CIR 

Ponda T SAY TMARST:" GET MMARST PICTURE "A? 

SS. SAY SSPOSVC." GET MSPOSVC PICTURE 'N' 

18,4 WORSE Se eS eee eee eS Te See ee ee ee ee ee aL 


18,46 SAY "kkkkkkkkkkkkkkkkk*kt!l 


19,4 SAY "* OFFNOTES | EDIT - ^PGDN | EXIT - ^PGUP |" 
19,46 SAY " CONTINUE - ^END *" 


DT SAY Ne te RA A RR RR RR AR RR RR RR RR AR RAR RR RR RR RM 
20,46 SAY "kkkkkkkkkkkkkkkkkkt 


22,4 SAY OBENOTES -GEES OE NOTES 


KK KK KRKRKRKR KKK 


(a) (A) (O) (O) (A) (O) (A) @ (CD (DD DD 
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A. 


+ + + E E XR OX 


+ * 


APPENDIX E 


o DATION MODULE LISTINGS 


STATICMD 


STATICMD.PRG 


AUTHOR : DAVID L. HORTON MAJOR USMC 
PURPOSE : Maintain or review the duty station database 
file. 


ELLE USER: None 
CALLING - Statiadd.prg, Statiúupd.pr9g, StatidellpRoa 
Statirev.prg 


DATE LAST TIME MODIFIED =====> 25 OCTOBER 1985 <===== 


Display the process menu to the user and wait for the 
selection. 


STORE Y TOPSEECEETION 
STORE 1 TO TRYAGAIN 


DO WHILE TRYAGAIN = 1 

CLEAR 

(a SUN SAY WU=z=========================== ==" 

(a 3,40 SIN A SS SS SO SS SÓ 

à 6,18 SAY. MAINTAIN DUTY STATION"+; 

(| FILE n 

A 1:8 2 nS +. 

ALO; US S eens) ADD a new duty station"+; 

" record E 

Q11,18 SAY " —2) UPDATE an existing duty station"+; 
" record 

012,158 MS ES DELETE an existing duty station EM 
"recorde. 

013, ] 90 p "EE REVIEW an existing duty station"+; 
"Peco pc 

@15,138° -SAY ES) RETURN to the main"+; 

nm menu $" 

? - 
2 

INPUT "Enter Your selection (1-5) ==2>7 mm TO SELECTION 


Process routine based on the user's selection: 


DO CASE 
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kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
CASE SELECTION = 1 

KKK KKK KKK KKK KEK KEK KEK KEKE KKK Á K K K KA K X K K Á K K K Á KK KKK ÁKÁKÁKŘKÁK 

* 


de 
* Call the duty station add program. 
* 


DO STATIADD 


X Je eock ove de eoe eoe oe eoe oe eode eoe oe oe oe deo oe oe oe ode oe ok oe ode oko deck ok eo deo x x de de de xA n kt kx x xn kx kk ok kkk 
CASE SELECTION = 2 

ck oec oe ceo AA xk 

* 


* Call the duty station update program. 
* 


DO STATIUPD 


e oe ye eoe oe ook ye e ook A A A K Z ZÁ K K A K Á K Á K A K Á Á K Á KKK KKK KKK KKK KKK 
CASE SELECTION = 3 

EEK KAKA AAA A KH 

* 


* Call the duty station deletion program. 
* 


Bo STATIDEL 


Kak Keke Kee KKK KR KKK RRR RRR KKK KKK KKK KKK KK KKK RRR K 
CASE SELECTION = 4 

*e X dee oe ye de ode eoe oe oe ode oe oe oe oo oe oo ok e eoe eode eoe eoo eoo eoe oe oe eoo o kx o kx x x xn xn xn x8 Xx x X Xx 

x 


* Call the duty station review program. 
* 


DO STATIREV 


KARR KR KR ode coe ode ce ok de ck deck cede ck e oe ode eode code ook deck de ck ck dee AAA 
CASE SELECTION = 5 
ck ceo ode ode de oko ode oe ok de oe ode deo kx deo kk ck eo eo eoe de Á K K K Á ko ko oko oko kokokokok ok ko k k kkkkkkkkkkkkk 
* 
Return to the mainmenu program. 
* 
STORE Ø TO TRYAGAIN 
ENDCASE 
koe oe echec ok de oko exo ck eo kx eoo e eo ke ko x koe ko e koe deck deck deck ko ko ko kokoko ko ko k k kkkkkkktkk 
ENDDO WHILE TRYAGAIN = @ 
CLEAR ALL 
CLEAR 


RETURN 
kkkkkkkkkkžkkkkkkkkkkkkkkkkžkkkkkkkkkkž*šžxkkkkkkkkkkkkkkkěkkkěkkxk 
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B. 


+ + + FF + OF F 


* 


STATIADD 


STATIADD.PRG 


AUTHOR : DAVID Lb. HORTON MAJOR USMC 
PURPOSE : Add new billets to the duty station database 
file. 
FILE USED : Stationidbi inder scacolhe ad: 
CALLING : Statiadd: ime, Stat lauwename 
` DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


Rk k AAA AAA AMAR 


* 


CASE SELECTION = 1 Add A New Duty Station Billet Record 


*ock ok oe ck oe kk RAR ARA RRA RR RR RR 


* 


* + + 


+ + + X 


+ + 


+ +*+ +*+ > 


+ + + + 


Set up outer loop to repeat when the user wants to add 
more records. 


STORE 1 TO MORE 
DO WHILE MORE = 1 


Use the station database indexed on T/O line number and 
wait for the user to input the new T/O line number. 


USE STATION TNDEX STATOLNO.NDX 

CLEAR 

STORER: ATO MTOCITNEN 

@ 12,1 SAY "Enter T/O line number to be added"+; 

" (1.0. 3447N0135A): " GET MTOLINEN PICTURE "9999 900045 
READ 

GO TOP 

SEEK UPPER (MTOLINEN) 

CLEAR 


Check for duplicate record on the database. 

LE CEOE EBEN 

Clear screen and set initial values for variables to 
be added to the file. The M prefix indicates memory 


variables distinguishing them from their corresponding 
database fields. 


SOR E TO MBMOS 
STORE TE i TO MBPGRD 
STORES i FOM 
SPOREM LI TO MB IDEAR 


Set-up inner loop which gives the user a chance to 
correct the entries before adding them to the file. 
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A + x 


* + + x x 


A + x 


A + X 


+ * 


SHORE Leto CONTADDST 
DO WHILE CONTADDST = 1 


Using the station add format file to produce the 
screen display. 


SET FORMAT TO STATIADD.FMT 
READ 


Select a location at the bottom of screen and prompt 
for corrections. 


ACCEPT "DO YOU WISH TO MAKE ANY CORRECTIONS? "+; 
MEN) ===>" TO YN 
IFE UPPER(YN)="N" 
STORE NO" TO” CONTADDST 
CLEAR 
ENDIF 
ENDDO WHILE CONTADDST = 0 


If entries are correct, add them to database. 


APPEND BLANK 


REPLACE BMOS WITH MBMOS 

REPLACE BPGRD WITH MBPGRD 

EEPRLACRBOMCC WITH MES 

REPLACE TOLINENO WITH MTOLINEN 

REPLACE BILLET WEP MNBA GOET 
ELSE 


Show the user the duplicate T/O line number record 
and wait for a response. 


DL FORMAT TO OTATPIDUP.EMT 
EDIT 
CLEAR 

ENDIF 


Select a location at the bottom of the screen and 
prompt for more additions. 


ACCEPT "ADD ANOTHER RECORD? (Y/N) ===>" TO YNL 
me UPPER (YN1)="N" 

STORE G TO MORE 

CLEAR 
ENDIF 


Return to calling program. 


ENDDO WHILE MORE = @ 
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RETURN 
kkkkkkkkkkkkkkkkěkkkěkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkx 


148 


C. STATIADD.FMT 


* STATIADD.EMT 
* AUTHOR : DAVID H. HORTON MAJOR USMC 
* PURPOSE : Provide the station add format screen. 
* FILE USED : None 
* CALLING : None 
* 
* DATE LAST TIME MODIFIED =====> 1l NOVEMBER 1985 <===== 
* 
* Set screen format for adding a new station billet record. 
* 
@ 0,26 SAY " " 
(a 626 SAY " ADD A NEW BILLET FORMAT dd 
8 2,26 SAY " ----------------------- " 
(a 322.6 SAV " 
(a 7,4 SAY "BMOS:" GET MBMOS PICTURE 79999: 
@ 5 SAY "BPGRD:" GET MBPGRD PICTURE “A!” 
EM 26 GAY TBILLET:": 
GET MBILLET PICTURES ere ale Ter TOA at 
a 10,4 SAY "MEC" GET MMCC PICTURE 'NNN' 
e 19,15 SAV TOLTNENO: 
M0725 SAY MTOLINEN 
(a od SAY UXARKKKKKKKKKKKKKKKKKKXKXKKXKKKKKKKXKKXKkXkkxkkkx kk kx? 
(a 13,46 SAY ÚDXXXKXKXKXKKKXKXKKXkxkkxxxk cx 
a 14,4 SAY “e BILNOTES - CAN BE EDITED DURING THE STAT" 
@ 14,46 SAY "ION UPDATE PROCESS *" 
(a 15,4 SAY UXKKKKKKKKKKKKKKKKKXKXKKKKKKKKXKXKKKKKKkxkxkkxkxkkxxx0 
(a e577 46 SAY ÚDUEXAEXKKKKKKXKXXkkkkk xx" 
ga 17,4 SAY UETENOGIBES ? 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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STATIDUP.EMT 
STATIDUP EMT 
AUTHOR : DAVID L. HORTON MAJOR USMC 
PURPOSE : Provide the station duplicate record format 
screen. 
FILE USED : None 
CALLING : None 
DATE LAST TIME MODIFIED =====> 9 NOVEMBER 1985 <===== 
Set screen format for the duplicate station record. 


(A) (A) (©) (QD (CD (CD (CD (CD (QD (CD (QD (C0 (CD (CD (CD (CD (C0 (CD (CO (CD (C0 (CD (CO (CD @ 


0,26 


22,4 


SAY 
SAY 
SAY 
SAY 


SAY: 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


" " 

" STATION DUPLICATE FORMAT " 

MD o NN " 

1 "n 

"BMOS:" 

BMOS 

"BPGRD:" 

BPGRD 

E RR 

BILLET 

DM 

MCC 

pro DEN K 

MTOLINEN 

Vk eoe oko e ok e ck RR RR RR RR RR RR RR RR RR RR RR 
DTAXRKKKKXKKKKKKKKkXkkk 09 

"* BILNOTES | EDIT - ^PGDN | EXIT - ^PGUP |" 
" CONTINUE - ^END *" 

Vo eoo oe oe koe ke eoe ek ek eoo e ek deo e e ox de e ke ke ko x ok ko x x kx kk M. 
Wox ckokokok ck k kkkkkkkkkkktk! 

"BILNOTES:" GET BILNOTES 

"T/O LINE NUMBER (" 

MTOLINEN 


") IS ALREADY ON THE Ss TATION Deane. 
" SHOWN ABOVE" 


REXXXXXXXCERERE RRE RA AAA AREA AREA ERA RR RR RR KR 
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E.  STATIUPD 


ORATIJPD.PRG 

AUTHOR > DAVBDALE, «HORDONSMAJOR USMC 

PURPOSE : Update existing billets in the duty station 
database file. 


* X X + * * + X 


FILE USED : Station.dbf index statolne. nda 
CALLING "rcc cet 
DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


* 

oce oe oce ode ode oe ode oe oe ode oe oe ok oe oe ode oe oe oe oe oe ok ok ok oo ode oe oe oe koe oko oe ok oe oo deo de oko e e ke ke e xt kx ko ko ko ok kk 
EAS E SELECTION = 2 Update An Existing Station Record 
kkkkkkkkkkkkkkkžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* 


* Set-up outer loop to repeat when the user wants to 
* update more records. 
* 


STORE 1 TO MORE 
DO WHILE MORE = 1 


Use the station database indexed on T/O line number and 
wait for the user to input the desired T/O line number. 


+ + OF OF 


MSE STATION INDEX STATOLNO.NDA 

CLEAR 

STORE ' * TO MTOLINBEN 

a 12,1 SAY "Enter T/O line number to be updated"+; 

ie. Sta7NG135A) >: “GRR MTOLINEN PICTURE 19999199991 
READ 

GO TOP 

SEEK UPPER (MTOLINEN) 

CLEAR 


check for no record found on the database. 


IF EOF () = .T. THEN 
SET TALK ON 
@ 21,1 SAY "T/O LINE NUMBER (" 
@ 21,18 SAY MTOLINEN 
a 21,28 SAY ") NOT FOUND ON STATION.DBE " 
WAIT 
SET TALK OFF 
ELSE 


* 
Æ oring the old record to a work record area. The M 
* prefix indicates memory variables distinguishing them 
* from their corresponding database fields. 
* 

STORE BMOS TO MBMOS 

STORE BPGRD TO MBPGRD 
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* += + x A x o 


XX A X X 


+ x* ox ox 


SIDORESMGCC EO Ines 
DO PE BB EE TO MBIDIEPBT 


Set-up inner loop which gives the user a chance to 
correct the entries before updating the file. 


STORE | TONES 
DO WHILE CONTUPDST = 1 


Using the station update format file to produce the 
screen display. 


SET FORMAT TO STATTUPRD ENT 
EIDE 


Select a location near bottom of the screen and prompt 
for corrections. 


ACCEPT 'DO YOU WISH TO MAKE ANY CORRECCIONS EE 


' (Y/N) === TO YN 

IF UPPER (YN) = "Nº 
STORESUATOSCONTUADS E 
CLEAR 

ENDIF 


ENDDO WHILE CONTUPDST = 0 


Storing the corrected edit fields from the work area. 


REPLACE BMOS PERDE BOS 

REPLACE BPGRD WITH MBPGRD 

REBEACENNCC WITHTMMOC 

REPLACE TOLINENO WITH MTOLINEN 

REPLACE BILLET WITHA MBTEEET 
ENDTE 


Select a location at the bottom of the ccr cen and 
prompt for more updates. 


ACCEPT 'UPDATE ANOTHER RECORD? (Y/N) ===> ' TO YNl 
IF UPPER(YNL) = 'N' 

STORE © TO MORE 

CLEAR 
ENDIF 


Return to calling program. 


ENDDO WHILE MORE = Ø 
RETURN 


KÁKXÁAXXÁZ A KŘ AX AA ARA AAA 


185.2 


ER STATIUPD. EMT 


Set LUPD. 
AUTHOR 
PURPOSE 
BILE USED 
CALLING 


DATE LAST 


9,28 
1,28 
DES 
9209 
7,4 

"L5 
7,26 


DOO OOD DO O 


10,4 
19,15 
10,25 
13,4 
13,46 
14,4 
14,46 
15,4 
15,46 
4 


(cO (cO (0D (cO (cO (cO (00 (0D (OD (0D 


EME 


vo ee ee oe 


DAVID L: BORTON MAJOR USMC 

Provide tne station update format screen. 
None 

None 


TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
CET 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


Set screen format for updating a station record. 


11 11 

STATION UPDATE FORMAT "^" 
E c EE A o a E A (t 

n Ww 

"BMOS:" GET MBMOS PICTURE '9999' 
"BPGRD:" GET MBPGRD PICTURE AT 
IESU BITS s 

MBILLET PICTURES P or Tero n tuto rer Too opere 
MES GET MMCC PICTURE 'NNN' 
"OB BNENOS 

MTOLINEN 
ÚPXXXXXKXKXXKxKKXxXxKKxxxkxkxkkxxxkxkxkxkxkxxxxkxkkxkxkxkxkxxkxxk xn" 
Ukckkkkkkktkttkt.ktktktktktktkt 

"* BILNOTES | EDIP =- “PGDN | EXIT. = "PGUP te 
"CONTINUE END. © 

V eo ook ook ok ok ok ko ode ok ok oko ok ok ok okok o kokokokok ok kk ok kokkkkkkkkkkxkrXk! 
Vk xk xk k kk kk kk kkkktkkxk! 

UEBILNOPSSU CET IBILNOTES 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


125.3 


G. | STATIDEE 


* STATIDEL. PRG 

* AUTHOR s. DAVIDE. HORTONSMAJOR USNS 

* PURPOSE : Delete an existing billet in the duty 

* station database file. 

* FILE USED > Station.-dbf index stato nome 

* CALLING * Statgder.fmt 

* 

* DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


* 

ck coo occ oe oe oe ck oe ok oe oe ooo eo eoe oko oe oo ek e xoxo xo eo ko ko x x ko xo ke x x Xx ke kx n x ok ko ok ok k kkkk 
* CASE SELECTION = 3 Delete An Existing Station Record 
oce oe oce ode oe oe oe oe oe eoe ode oce oe oe oko k eo eoo oko oe oe ok ooo eo eoe oko eoo ek ZA A ke ZA ko ko e o ko ko kx kx o kx ok ko ko 
* 


* Set-up outer loop to repeat when the user wants to 
* delete more records. 
* 


STORE 1 TO DEBBEAS 
STORE LOMO 
DO WA LEE MORENA 


Use the station database indexed on T/O line number and 
walt for the user to input the desired T/O line number. 


+ + + x 


USE. STATTON T INDEX STATOCNOT NDX 

CLEAR 

STORET! TOP MO TEN 

a 12,1 SAY "Enter T/O line number to be deleted"+; 

" (1.0, 3447N0135A): " GET MTOLINEN PICTURE '9999 190/00 
READ 

GO TOP 

SEEK UPPER (MTOLINEN) 

CLEAR 


Check for no record found on the database: 


* + x 


LE OE BEEN 
SET TALK ON 
a Dia Cr CINE NUMEROS 
d 21,18 SAY MTOLINEN 


8725728 SAY “) NOT FOUNDTMON STAT ONADES 
WAIT 
SET- TALK OFE 

ELSE 


Using the station delete format file to produce tne 
screen display. 


A CE OA x 


SET FORMAT CTOSSTATITDE DEE 
EDIT 
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+ + + X 


+ + + X 


+ 


Select a location near bottom of the screen and prompt 
for deletion and confirmation. 


ACCEPT “Do you Wish To DELETE This Record?'+; 
' (Y/N) === ' TO YN 
IF UPPER (YN) = 'Y'! 
ACCEPT "ARE YOU SURE YOU WANT TO DELETE THIS'+; 
ME ECORE 2 NH = TO SURE 
IF UPPER (SURE) = 'Y' 
DECETE 
STORE 1 TO DELFLAG 
ENDIF 
ENDIF 
CLEAR 
ENDIF 


Select a location at the bottom of the screen and prompt 
for more deletions. 


BeGBPT. "DELETE ANOTHER RECORD? (Y/N) ===> PON 
Pee PBR (YNI) = 'N' 

STORE Ø TO MORE 

CLEAR 
ENDIF 


Return to calling program. 


ENDDO WHILE MORE = Y 

CLEAR 

IF DELFLAG = 1 THEN 
d 12,1 SAY " ONE MOMENT PLEASE ... ERASING DELETED"+; 
M REGORDS " 
PACK 

ENDIF 

CLEAR 

RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkŘkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkxkk 


> 


H. STATIDEL.EMT 


AUTHOR 


(* Ob OR X O6 € X 0€ ox x 


0,28 
15729 
220 


(a) (a) (a) ra) ra) (o) ra) ra) (a) (a) (a) (a) (a) (a) ra) (a) (a) (a) ra) (a) (a) 
im 
Q 
H> 


S BA EEE EMT 


SAY 
SAY 
SAY 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SAY 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SA Y 


DAVID L. HORTON MAJOR USMC 


PURPOSE. * Provide the station delete format screen. 
FILE USED None 
CALLING None 
DATE LAST TIME MODIFIED =====> 9 NOVEMBER 1985 <===== 


Set screen format for deleting a station record. 


LET " 

" STATION DELETE FORMAT " 

MUSEI E M a " 

" tt 

MOSS 

BMOS 

"BPGRD:" 

BPGRD 

SBETCLET:" 

BILLET 

"MCC: 

Mee 

UNO E ENE NO 

MTOLINEN 

VB ke eoe ode eoe ode ode kk kkk kek keke keke KKK KKK KK KKK KKK KKK KKK 
1e eoe ode ode eode ode deo deck oko ko dk ok ok kM 

"x BILNOPES | EDIT - ^PGDN | EXIT - ^PGUP i 
" CONTINUE = ENDS 

30 ok ckckckockokokok deoeckok o okockokokokokokockok ko ko kok ok ck ko ko ck kocko kk kkkkk! 
Ukckckoko ck kockok ko kk kkkkkktk! 

"BLENOTES:" GET BIENO TES 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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I. 


X AAA AA 


+ 


STATIREV 


STATIREV. PRG 


AUTHOR > DAVAD L. HORTON MAJOR USMC 

PURPOSE : Review existing billets in the duty station 
database file. 

Mite USED + Station.dbf index statolno.ndx 

CALLING : Statirev.fmt 

DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


Kak KKK Ka KKK KKK KK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


* 


CASE SELECTION = 4 Review An Existing Station Record 


de oe ode ode ceo o oe oce eode oe oce ode ode ode oce oce eoe ode oce oce ode ode oe oce ode deo oce ode ode ode ooo ko ko dee eo o eo kx kx x kx n kx xn x x Xx kx kk 


* 


+ + x 


+ + x x 


+ 


+ X ox ox 


Set-up outer loop to repeat when the user wants to review 
more records. 


SpDortg.t TO MORE 
DO WHILE MORE = 1 


Use the station database indexed on T/O line number and 
wait for the user to input the desired T/O line number. 


BSE STATION INDEX STATOLNO.NDX 

CLEAR 

STORE * ' TO MTOLINEN 

a 12,1 SAY "Enter T/O line number to be reviewed"+; 
Ie. AA INOI? SA): TEGET MTOLINEN PICTURE "999919999 
READ 

GO TOP 

SEEK UPPER (MTOLINEN) 

CLEAR 


Check for no record found on the database. 


hee EOF () = .T. THEN 
SET TALK ON 
ASA CT/O LINE NUMBER (O 
@ 21,18 SAY MTOLINEN 


E e CaAr J NOt OUND “ONVSTATION. DBE: ” 
WAIT 
SET TALK OFF 
ELSE 
Using the station review format file to produce the 
screen display. 
OEC TEORMATITO STATIREV EMT 
EDIT 
ENDIF 


W57 


Select a location at the bottom of the screen and prompt 
for more reviews. 
& 


* ox x ox 


ACCEPT 'REVIEW ANOTHER RECORD? (Y/N) ===> 5 "PORN 
IF UPPER(YN1) = 'N' 

STORE Y TO MORE 

CLEAR 


ENDTE 


+ 


Return to calling Program: 


ENDDO WHILE MORE = Q 
RETURN 


* ck AAA AAA ARA ARA AA RRA AAA ARA RRA RA RRA AA RRA RAR AAA RARA AAA RAR SR 


ir? 


J. 


* 
* 
* 
* 


STATIREV.EMT 
STATIREV.EMT 
AUTHOR > DAVID L. HORTON MAJOR USMC 
PURPOSE : Provide the station review format screen. 
FILE USED : None 
CALLING : None 
DATE LAST TIME MODIFIED =====> 9 NOVEMBER 1985 <===== 


Set screen format for reviewing a station record. 


DODD OD DOD (CD (CD (CD (CD (CD (CD (CD (OD (CD (CD YD (OD (OD (CD (CD 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


" Hn 

" STATION REVIEW FORMAT " 

Hw e A A E on " 

"n 1 

"BMOS: " 

BMOS 

"BPGRD:" 

BPGRD 

Erg 

BEE 

"MCC: 31 

MCC 

"TOLINENO:" 

MTOLINEN 

Vk oko ok ok ok d okok ok oko ko ko ok ok okokokokokok o kokok kokok kokokdkok ok kkkkkkkk! 
1 ckck ck ok ok ko k kokok o kkkkkkkM 

"* BILNOTES | EDIT - ^PGDN | EXIT - ^PGUP |" 
" CONTINUE - ^END *" 

Nkekekkke kek keke Ke KR RRR KR KKK KR RK KKK KR RR RRR RRR RRR KEK 
Vk ook ck ko kokok ok k k kkkkkkkUM 

"BILNOTES:" GET BILNOTES 


X ook RARA koe eoo ko ko de oko AAA AR SR 
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A. 


+ + + ee FHF FF He HF HF HF Xx X 


APPENDIX F 


MCCDESC MODULE LISTINGS 


MOCC OECMO 


MCCDECMD. PRG 

AUTHOR : DAVID L: HORTON MAJOR USMC 

PURPOSE : Maintain or review the mcc description 
database file. 

FILE USED = Nome 

CALLING : Mccdeadd.prg, Mccdeupd.prg, Mccdedel.prg, 
Mccderev.prg 


DATE LAST TIME MODIFIED =====> 27 NOVEMBER 1985 <===== 


Display the process menu to the user and wait for the 
selection. 


STORE Y TO SELECTION 

STORE 1 TO TRYAGAIN 

DO WHILE TRYAGAIN = 1 

CLEAR 

(a 3,19 SAY "==============================" 
(a 3,40 SAY '"==z=z=============co============" 


E aus Sn MAINTAIN MCC DESCRIPTION {ee 

E DERE E 

Q- 10557 Ong TENE 

W cos O DD 11 

010,15 SAY " 1) ADD a new mec descr mot rom ., 

" record da 

011,15 SAY “ 2) UPDATE an existing mec description = 
"recordi 

ATLAS OS DELETE an existing mcc description: 
"recordi 

013,15 SAY " 4) REVIEW an existing mcc description as 
" qecord $5 

015,15 SAY " 5) RETURN to the malin k: 

" menu H 

2 

? 

INPUT "Enter your selection (1-5) ===> TO SELECTION 


Process routine based on the user's selection. 


DO CASE 
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kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 

CASE SELECTION = 1 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkkkkžkkkkkěkkkkxkkkkkkkkkkxk 
* 


* Call the mcc description add program. 
* 


DO MECDEADD 


XC oec RR RR RARA 
CASE SELECTION = 2 

ck oe K kk kx 

* 


* Call the mcc description update program. 
* 


po MCCDEUPD 


X ce e e e oe oe oe oe ode ode oe oe de oe de de oe de oe e oe e e e e oe e de de de ke de koe ok oe ke kx e xA x kx x x x kx e x x kx ok oko k k k kk 
CASE SELECTION = 3 

AK K kk 

* 


* Call the mcc description deletion program. 
* 


DO MCCDEDEL 


KXKKKKKKKKKKKKKKKKKKKKKKKKXKKKkk kk xkkkxkxkxkxkxkxkkxkxkxxkxxkxkkxk kk kk 

CASE SELECTION = 4 
kkkkkkkkkkkkkkkkškkkkkkkkkkkkkkkkkkkkkxkkkkkkxkkkkkkkkkkkėkkkxkxk 
X 


* Call the mcc description review program. 
* 


DO” MCCDEREV 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKkKKKKKKkKKKKKKkkxkkkxkkkxkkxkxkko 

TASETSELECTION = 5 
kkkkkkkkkkkkkkkkkkkkkkkkkxkkěkkkkkkkkkěkkkkšěkěkkķěxkkěkkkkkkkěkěkkkkkkkkk 
* 
* Return to the mainmenu program. 
* 

SPORE U TO TRYAGAIN 

ENDCASE 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkěxkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 

ENDDO WHILE TRYAGAIN = @ 

CLEAR ALL 

CLEAR 

@ 12,1 SAY "PLEASE INSERT PROGRAM DISK I" 

SET TALK ON 

WAIT 

SEP TALK OFF 

CLEAR 


RETURN 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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B. 


+ CACA X X 


* 


MCCDEADD 


MCCDEADD.PRG 

AUTHOR : DAVID L. HORTON MAJOR USMC 

PURPOSE : Add new monitor command code descriptions to 
the monitor command code description data 
base file. 


FILE USED : Mceedesc.dbf index. mecademee ne ~ 
CALLING ; Mecdeadd. ime, Mccdedup time 
DATE LAST TIME MODIFIED =====> 19 NOVEMBER 1985 <===== 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


* 


CASE SELECTION = 1 Add A New MCC Description Record 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


* 


* 
x 
* 


+ + F + 


+ + x 


* x + F x X 


+ + + X 


Set up outer loop to repeat when the user wants to add 
more records. | 


STORE L TO MORE 
DO WHILE MORE = 1 


Use the mcc description database indexed on MCC and 
wait for the user to input the new mcc. 


USE MCCDESC HINDE: TMCCDEMCC -NDX 

CLEAR 

STORES ' TO MMCC 

@ 12,1 SAY "Enter MCC to be added (i.e. MBI): "CET ec 
PICTURE 'NNN' 

READ 

GO TOP 

SEEK UPPER (MMCC) 

CLEAR 


Check for duplicate record on the database. 
TEMES A TPBN 
Clear screen and set initial values for variables to 
be added to the file. The M prefix indicates memory 
variables distinguishing them from their corresponding 
database fields. 

STORE 7? £ TO MGEOCOC 


Set-up inner loop which gives the user a chance to 
correct the entries before adding them to the file. 


STORE T TOSCONTADDMC 
DO WHILE CONTADDMC = I 


NU 


+ + + x 


* t o x 


+ + + x + 


+ + + X 


+ + 


Using the MCC description add format file to Pe 
the screen display. 


WB EORMAT TO MCCDEADD.FMT 
READ 


Select a location at the bottom of screen and prompt 
Bor corrections. 


ACCEPT “DO YOU WISH TO MAKE ANY CORRECTIONS? "+; 
" (Y/N) ===> " TO YN 
IF UPPER (YN) ="N" 
STORE @ TO CONTADDMC 
CLEAR 
ENDIF 
ENDDO WHILE CONTADDMC = Y 


If entries are correct, add them to database. 


APPEND BLANK 

REPLACE MCC WITH MMCC 

REPLACE GEOLOC WITHwMGEOLOC 
ELSE 


Show the user the duplicate MCC description and wait 
for a response. 


ER PORMAT TO MCGDEDUPSEM' 
EDIT 
CLEAR 

ENDIF 


Select a location at the bottom of the screen and prompt 
for more additions. 


ACCEPT "ADD ANOTHER RECORD? (Y/N) ===>" TO YNI 
IF UPPER (YN1)="N" 

STORE Y TO MORE 

CLEAR 
ENDIF 


pecurn to calling program. 


ENDDO WHILE MORE = Y 
RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkk 
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C. 


* 


* 


XXX HA HA 


MCCDEADD.FMT 


ME EDEADD EMT 

AUTHOR : DAVID H. HORTON MAJORTUSMC 

PURPOSE : Provide the mcc description add format 
Screen. 

FILE USED : None 

CALLING : None 

DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 


Set screen format for adding a new mcc description 
record. 


ro) (a) (O) (O) (O) (©) (©) © OA (©) (CD (O) CO) (© 


0,21 
1,21 
Del 
3,2 
7,4 
7,9 
10,4 
13,4 
13,46 
14,4 
14,46 
15,4 
15,46 
17,4 


SAY 
SAY 
SAY 
SAY 
SA Y 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


" ADD A NEW MCC DESCRIPTION FORMA TERE 


nec: 
MMCC 
"GEOLOC:" GET MGEOLOC PICTURE '!!!!!1!11!1' 


Ukkkkkxkkkkkkkkkkkkkkkkkkěxkxkkkkkkkěkkkěkkkkkkkkkk™ 
Ve oe eoe ck oe e e ke e x ok xn kx ke Xx xn kx kx x kx kx kx X M 


"* MCCDESC - CAN BE EDITED DURING THEM COCHE 


"ESCRIPTION UPDATE PROCESS *" 
Wk KKK KKK KEK KEK KEK KKK KKK KEKE KKK KKK KEK KEK KER EEN 


VU Xe oe eode oko eo kx e AMT 


TMCODESC: 


EE TE TEE EE EEE EE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE TEE EEE 
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Be MCCDEDUP. EMT 


AUTHOR 
PURPOSE 


REGE USED 
CALLING 


DATE LAST 


record. 


0,21 
ec 
2,21 
S 
7,4 
Tr? 
10,4 
19,12 
13,4 
13,46 
14,4 
14,46 
15,4 
15,46 
17,4 
21,4 
Du 
Dir 12 


ra) (a) (a) (©) (©) (a) (o) (A) fa) (a) (a) (a) (CD (CD (CD (©) (CD (a) 


* ck ce oe oe oe oe oe oe oe oe oe oe oe oe oe eoe oe oe 0e 0o ke de ok oko oe deo ox € kk ke de de ke dn kx kx kx xn ox kx kxokxok kkkkkkk 


MECDEDUP. EMT 


ee .. 


DAVID L. HORTON MAJOR USMC 

Provide the mcc description duplicate record 
format screen. 

None 

None 


TIME MODIFIED =====> 10 NOVEMBER 1985 <===== 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SA Y 
SAY 
SA Y 
SAY 
SAY 
SAY 
SA Y 
SAY 
SAY 
SAY 


Set screen format for the duplicate mcc description 


tt LET 

" MCC DESCRIPTION DUPLICATE FORMAT " 

MEME CERE CATENAS AAA. O ds " 

$" u 

“ MCC e " 

MMCC 

"GEOLOC:" 

GEOLOC 

V kk eoe oe oe oe AZ ÁZ AAA AAA A 
MA AA A A A kx kx kx x kx x x I 

AAMC CDESC | EDIT - “PGDN | EXIT - “PGUP | 
PEONTINUE = END *" 
UKR T 
WA RA de eoe ook ox kx ko x x x x x! 

EIOCODESQC GET RNICCDESC 

"n MCC ( " 

MMCC 

INES ALREADY CON THE MECDESC.-DBE "AS SHOWN 7, 
" ABOVE" 


OS 


E. SMGOPEUBD 


* MECDEO PD OeRG 

x AUTHOR : DAVID L. HORTON MAJOR USMC 

* PURPOSE : Update an existing mcc description record 
x in the mcc description database file. 

* FILE USED : Mocdesc.dbf index mecdeme cc 

* CALLING : Mecae Vo di mi 

* 

* DATE LAST TIME MODIFIED =====> 10 NOVEMBER 1985 <===== 
* 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkk 


* CASE SELECTION = 2 Update An Existing MCC Description 


* Record 
X co e e e ox oe oe ooo e eoe eoe eoe oe oe ook oe eoe ooo eoe ooo eoo ko ooo eo deo eo eo kx kx A xA kx kx kx xA kt kx ox ox o kx Xx kx 


* 


Set-up outer loop to repeat when the user wants to update 
more records. 


+ * x 


STORE CL Omo 
DO WHILE MORE = 1 


Use mcc description database indexed on monitor command. 
code and wait for the user to input the desired monitor 
command code. 


+ + ++ 


USE MCCDESC INDEX MCCDEMCC. NDX 

CLEAR 

STORE - "TO MMCC 

a 12,1 SAY "Enter MCC to be updated (le: VE) T En 
GET MMCC PICTURE 'NNN' 

READ 

GO TOP 

SEEK UPPER (MMCC) 

CLEAR 


^ 


Check for no record found on the database. 


+ x 


TP BOR = RJ PEN 
SET TALK ON 
A 2 SAY MCC v 
07257633 -mec 
d 21,9 SAY ") NOT FOUND QN CeDESGC BBC 
WA IT 
SET TALK OFF 
ELSE 


Storing the old record to a work record arca- TNEM 
prefix indicates memory variables distinguishing them 
from their corresponding database fields. 


+ + + + X 
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+ + + x + + + + 


+ X* + x 


x 


+ + + x 


STORE GEOLOC TO MGEOLOC 


Set-up inner loop which gives the user a chance to 
correct the entries before updating the file. 


STORE 1 TO CONTUPDMC 
DO WHILE CONTUPDMC = 1 


Using the mcc description update format file to produce 
the screen display. 


S LORM a LO MĚCDEUPD EME 
BDH 


Select a location near bottom of the screen and orompt 
mor corrections. 


CEPR ADO YOU WISH TO MAKE ANY CORRECTIONS? “+; 


' (Y/N) === ' TO YN 

IF UPPER (YN) = 'N' 
STORE Y TO CONTUPDMC 
CLEAR 

ENDIF 


ENDDO WHILE CONTUPDMC = Q 
Storing the corrected edit fields from the work area. 


REPLACE MCC WI EHEMMCC 
REPLACE GEOLOC WITH MGEOLOC 
ENDIF 


Select a location at the bottom of the screen and prompt 
for more updates. 


ACCEPT ‘UPDATE ANOTHER RECORD? (Y/N) ===> ' TO YN1 
IF UPPER(YN1) = 'N' 

STORE © TO MORE 

CLEAR 
ENDIF 


Return to calling program. 


ENDDO WHILE MORE = @ 
RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkŘkkkkŘkkkkŘkkŘkkkkkkkkkkkkkkkkkkkkxkxk 
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F.  MGCCDEUPD.FMT 


*  MCCDEUPRD -EMT 
* AUTHOR DAVID L. HORTON MAJOR USMC 
* PURPOSE" : Provide the mcc description update format 
S Screen. 
* FILE USED : None 
* CALLING None 
* 
* DATE LAST TIME MODIFIED =====> 11 NOVEMBER 1985 <===== 
* 
* Set screen format for updating a mcc description record. 
* 
(a 9,23 SAY" " 
@ 1,23 SAY MCC DESCRIPTION UPDATE FORMATE 
A 2,23 SAY " ----------------------------- M 
d 3.2359 5A " 
a 7,4 SAY "Mem" 
a 7,9 SAY MMCC 
a 10,4 SAY "GEOLOC:" GET MGEOLOC PICTURE 
(a 13,4 SAY LR RR RR RR RR RR RR RR RR RR SR RR RR RR SR eo deo e KK KKK KEEN 
(a 155516 SAY Hoc oe ceo oko eoe e x e e x x6 Xx x x M. 
a 14,4 SA CEMCCDESG | EDIT - “PGDN | EXIT - ^PGUP | ha 
a 14,46 SAY "CONTINUE - “END *" 
(a a SAY Ve Xe oe ce oe ode oe oe oe ode oce ode oe oce ode ode ode ode decode ode oe ode deco RARA RRA AN 
@ 15,46 SAY "X*k*kk*x*kkkkkkkkkkkkkxn 
a 17,4 SAYMEMCOCDESCOIP MEGETDEMCCDESC 


KARA RARA RA A RRA AAA Z Z K K Z Z K K K Z K ATA 
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G. 


+ HH 


MCCDEDEL 
MeeD EDEL. PRG 
AUTHOR : DAVID L. HORTON MAJOR USMC 
PURPOSE : Delete an existing mcc description on the 


mcc description database file. 
FILE USED : Mccdesc.dbf index mccdemcc.ndx 
CALLING Mccdedel.fmt 


DATE LAST TIME MODIFIED =====> 10 NOVEMBER 1985 <===== 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkžkžkžkkkkkk*kk*kx* 


* 
* 


CASE SELECTION = 3 Delete An Existing Mcc Description 
Record 


kkkkkkkkkkkěžkkkkkkkkkkkkkkkkkkkkkkkkkkkkěžkkkkkkkkkkkkkkkkkk 


* 
* 
* 
* 


A + X 


+ 


* + + X 


Set-up outer loop to repeat when the user wants to 
delete more records. 


STORE Y TO DELFLAG 
STORE 1 TO MORE 
DO WHILE MORE = 1 


Use the mcc description database indexed on MCC and 
wait for the user to input the desired mcc. 


DSERMCCDESC INDEX MECCDEMCC.NDX 


CLEAR 

STORE ' “ETO MMCC 

2 IL SAY "Enter MCC to be deleted (1.e. MBl): " GET; 
MMCC PICTURE 'NNN' 

READ 

GO TOP 

SEEK UPPER (MMCC) 

CLEAR 


"~ 


Check for no record found on the database. 


PEREO () = .T. THEN 
SET TALK ON 
CRT SAY "MCC (A 
@ 21,6 SAY MMCC 
UU OENSAY NOT FOUND ON MECDESC. DEBE) 
WAIT 
SET TALK OFF 
ELSE 


Using the mcc description delete format file to produce 
the screen display. 


So oe ORMAT TO MECDEDEL. EMT 


t69 


EDI 


Select a location near bottom of the screen and prompt 
for deletiom and confirmation. 


* + + >» 


ACCEPT 'Do you Wishe Te sOELE RE coca 
' (Y/N) === ' TO YN 
IF UPPER (YN) =y: 
ACCEPT 'ARE YOU SURE YOU WANT TO DELETE THIS a= 
5 RECORD AMY N" TONSURE 
IF UPPER (SURE) = "yY: 
Duis ee 
STORE 1 TO DELFLAG 
ENDIF 
ENDIF 
CLEAR 
ENDIF 


Select a location at the bottom of the screen and prompt 
for more deletions. 


A += X 


ACCEPT 'DELETE ANOTHER RECORD? (Y/N) ===>  ' TO YNl 
IF UPPER (YN1) = 'N' 

STORE Y TO MORE 

CLEAR 
ENDIF 


Return to calling program. 


* + 


ENDDO WHILE MORE = Ø 

CLEAR 

IF DELFLAG = 1 THEN 
q 12,1 SAY " ONE MOMENT PLEASE ... ERASING DELETEDMS 
“RECORDS = 
PACK 

ENDIE 

CLEAR 

RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkkxkkkkkkkkěkkxkkkkkkkkkkkkkkkkkkkkkkkxk 
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Pee MeCDEDEL. EMT 


ME CDEDEL. EMT 

*x AUTHOR : 

* PURPOSE : 

* 

AE TEE USED : 

* CALLING : 

* 

* DATE LAST TI 

* 

* 

* 
Hus SAY 
um 1,23 Say 
(d 223 SAY 
nao 23 SAY 
@ 7,4 SAY 
Cl O SAY 
a 19,4 SAY 
Hag. 12- SAY 
a 13,4 SAY 
@ 13,46 SAY 
G@ 14,4 SAY 
d 14,46 SAY 
LS yd SA Y 
a 15,46 SAY 
mo 17,4 SAY 


DAVID Lb. HORTON T MAJOR USMC 

Provide the mcc description delete format 
Screen. 

None 

None 


ME MODIFIED =====> 10 NOVEMBER 1985 <===== 


Set screen format for deleting a mcc description record. 


n " 


SMC DESCRIPTION DELETE FORMAT" 


MEC 
MMCC 
VGEOLOG =" 
GEOLOC 


11 XXe oe oe oe oe ke Ax AG 6 6 x kx A6 x x € e A kx A 6 4e kx kx kx x xn xx ox kx kx x kk kk! 
kt AAA! 


CMCC DESC | EDIT - ^PGDN | EXIT - ^PGUP | me 
"CONTINUE - “END *" 


Ve eee eee oce oe AAA AAA RR! 
VM A x x kx xn x x X Xx ' 


MMCCDESCIUESOETOUMOCDESG 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkěkkěkkkkkkkk 


al. 


I. 


+ oF FF FF FH OF 


MCCDEREV 


MCGPEBREV BERG 
AUTHOR : DAVID L. HORTON MAJOR USMC 


PURPOSE : Review an existing mcc description record 
in the mcc description database file. 

FILE USED : Mccdesc.dbf index mccdemcc.ndx 

CALLING : Mccderev.fmt 

DATE LAST TIME MODIFIED =====> 19 NOVEMBER 1985 <===== 


* eoe ode oe oe ode ck oe oce ode eoe ok oe ck ode ode ode oe oe oce ode eoo eoe ode oce ceo ode ode oce eoe o eo eode ode eoe eo eode deo ok ko ko ko ko ok k kk À 


* 
* 


CASE SELECTION = 4 Review An Existing MCC Description 
Record 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kkk 


* 


* 
* 
* 


+ * + d+ x x 


E 


Set-up outer loop to repeat when the user wants to 
review more records. 


STORE 1 TOTMORE 
DO WHILE MORE = I 


Use mcc description database indexed on monitor command 
code and wait for the user to input the desired monitor 
command code. 


USE MCCDESC INDEX MCCBENCCSNDA 

CLEAR 

STORE ' STO UNES 

@ 12,1 SAY “Enter MCC to be reviewed (i.e. MBI) E 
GET MMCCTPICTURE NNN" 

READ 

GO TOP 

SEER UPPER (MMCC) 

CLEAR 


Check for no record found. on the databases 


TE COR (= THEN 
SET TALK ON 
Qi EMCC I: 
@ 2 F69 TSA MMCC 


@ 21,9 SAY") NOT FOUNDTONTMCCODESC ADBER 
WAIT 
SET TALK OEF 

ELSE 


Using the mcc description review format file to produce 
the screen display. 


SET FORMATO TOS MECDERE YA NT 
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EDIT 


ENDIF 
* 
NE "occa location st themeotctom ot the screen and prompt 
* for more reviews. 
* 
ACCEPT "REVIEW ANOTHER RECORD? (Y/N) ===> ' TO YN] 
DIE UPPER(YN1) = "Nº 
STORE Y TO MORE 
CLEAR 
ENDIF 


+ 


Recutea to calling program. 


ENDDO WHILE MORE = Ø 
RETURN 


*ckock oko oko ko oko kokokok kok ko ko kk k ko kk kk kk kok ko kk kk kk kkkkkkkktktkt*ktkx*ktktk*ktktktktk*ktkktkk 


TE TAS: 


Je " MCODEREV SEMT 


*  MCCDEREV -EMT 
* AUTHOR >: DAVID- L; HORTON MAJOR USMC 
* PURPOSE : Provide the mcc description review format 
* SCS T 
* FILE USED : None 
x CALLING : None 
* 
* DATE LAST TIME MODIFIED =====> 18 NOVEMBER 1985 <===== 
* 
* Set screen format for reviewing a mcc description record. 
* 
d 5095239 S S " 
a jS SAy ” MCC DESCRIPTION REVIEW FORMAT 1 
8 2,23 "SAY " "n EREEEeçsS " 
(a LSU SA " 
a 1,4 SAM CC 
AS SAY MMCC 
a 10,4 SAYS GBOLOC:" 
@ 10,12 SAMAGCEGEOC 
d 13,4 GAY  'okokokokckck kk koe ke kk Gk koe e ke kk K ÁK KKK KK kkkkkkkkkkkk! 
Q 13,46 SAY "xXx d kd ko x d x x 
d 14,4 SAY TZI MCCDESC | EDIT - ^PGDN | EXIT - ^PGUP | E 
a 14,46 SAY CONTINUE = SEND" 
cea GAY a a ke kk kk ke ke ke ke kk kk kk ke kk kk kk ke ke ke koe ke ke eM 
Q 15,46 SAY "Xxx x kk de e ede n 
Q 17,4 SAY S MCODESC MRO ETEMCCDESC 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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A. 


+ e+ E 0X OX 00€ HH 0X 0€ X X 


* 
* 
* 


APPENDIX G 


NEBORT MODULE LISTINGS 


REPORCMD 


Pee ORCMD. PRG 


AUTHOR 2» DAVID Gs. HORTON MAJOR USMC 

PURPOSE : Provide the user the ability to produce 
Standard reports. 

Pros USED : None 

CALLING  Repqljob.prg, Repqlott.prg 

DATE LAST TIME MODIFIED =====> 13 NOVEMBER 1985 <===== 


Display the process menu to the user and wait for the 
selection. 


PRODE. 0 TO SELECTION 

STORE I TO TRYAGAIN 

DO WHILE TRYAGAIN = 1 

CLEAR 

(a B ro S m co = o- ==- -4 ---- 
(a 3,40 GAY W=======================a======) 


© 6,16 SAY " PERSONNEL MONITORING"+; 
" REPORTS : 
LO -SAY " Maps 
DR A apo o Pe o uc: " 
810,16 SAY " IMO EMO o audi 1edtor uspecrtrc v 
1 a 1 
Job 
mM I6. SAY " 21» JOBS qualitred| for arspeciftie'"s; 
" officer M 
SENE IG. SAY " 3) RETURN to the main"+; 
ft menu “ 
? 
E 
INPUT 'Enter your selection (1-3) ===> ' TO SELECTION 


meeeess routine based on the user's selection. 


DO CASE 


kk KKK KKK KKK KK KKK KKK KK KEK KK KKK KKK KKK KKK KER KR ck de o deo ko ok k k k kkkkkk*kk 


CASE SELECTION = 1 


RR RR RR RR RR RR RR RR RR RR RR RAR RR RR RR RR RR RR RR RR RR RR RR RR a RR RR A A K 


* 
* 


Call the qualified officer program. 


LS 


DOSREBOLOPFE 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k 
CASE SELECTION = 2 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

* 

* Call the qualified jobs program. 


* 


DO REPOLJOB 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
CASE SELECTION = 3 
kkkkkkkěžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* 
* Return to the mainmenu program. 
* 
STORE G TO TRYAGAIN 
ENDCASE 
* oko oxckock oko kokokok ok ko kodkokokckokokok o kokck ko k ck ok deck kokod de deck ke dk ke k de dk ke KK KK 
ENDDO WHILE TRYAGAIN = @ 
CLEAR ALL 
CLEAR 
RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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B. 


+ + ee FF FF HF HF HF KF x 


* XA A Xx X x 


+ A + + 


+ 


REPOLOFF 


REPQLOFF. PRG 

AUTHOR | DAVID L. HORTON MAJOR USMC 

PURPOSE : Produce a report of officers that are 
qualified to filla specific job. 

FILE USED : Station.dbf index statolno.ndx 
Officers.dbf index officnam.ndx 

CALLING : Repalo re dem 


DATE LAST TIME MODIFIED =====> 13 NOVEMBER 1985 <===== 


Set-up loop to repeat when the user wants to get another 
report. 


SPORE 1 TO CONTRP2 
DO WHILE CONTRP2 = 1 


Clear screen and get initial value for billet number. 
Display title and request the user to provide the T/O 
line number of the job that needs to be filled. Wait 
for the user to respond. 


CLEAR 

STORE * PTOS MORE EN EN 

2 

THE SORE Ter Re CUALIE TED S2OR A JOB: 


! ně koně K T JE ČC E ema c S o P L 


— e — M M M M P P a o Ó 2 2 2 2 2 a M - Ž o P 2 2 P TO o c— «= 


NO) 


UE] SAY "Enter T/O Line Number (1.e: 344/NU135A4):3."; 
GET MTOLINEN PICTURE '9999!9999!' 
READ 


Search the station database for tne required T/O line 
number and store all the billet requirements. 


U BE STATION INDEX STATOLNO.NDA 
GO TOP 

SREK UPPER (MTOLTNEN) 

CLEAR 


meek for no record found on the database. 


IF EOF () = .T. THEN 
SET TALK ON 
@ 21,1 SAY "T/O LINE NUMBER (" 
@ 21,18 SAY MTOLINEN 
@ 21,28 SAY ") NOT FOUND ON THE STATION.DBE" 


Le] 


WA IT 
SA IO E 


ELSE 
STORE BMOS CO BROS 
STORE BEGRD TOV Mine Gas 
STORE Mee TOSNMMCC 


STORE. BIEN TOVME TEESE! 
? MTOLINEN ,MMCC,MBPGRD ,MBMCS 7 MB TEBE 


* 
* Search the officer database for the officers 
* that meet the billet requirements. Check to 
* see 1f the user wants a printed report or not. 
* 

USE OFFICBRSOVINDEX OBE E NAND% 

ACCEPT "DO YOU WANT TO PRINT THE REPO mh baie 

EO” YN 
IP UPPER AN = Uy! 
SET PRINT ON 

ENDIE 
* 
* Create the report of all qualified officers who can 
Eee sob: 
* 


REPORT FORM REPOLOPE FOR SL EGR» -—MBEGRD o) 
SPGRD=MBPGRD) .AND. (PMOS=MBMOS .OR. AMOS1=MBMOS .OR.; 
AMOS 2=MBMOS) 


27 ONE BELLE BILLET BICCENT 

co NUMBER MCC PAY GRADE MOS DESCRIPTION? 
E) 1 

2 AO ENE * | MMCC, MBPGRD, ' !MBMOS; IE 
MB RE EN 

SEE NU OBE 


ENDIF 


Ask the user if more reports are needed. 


ACCEPT 'DO YOU WANT ANOTHER REPORT? (Y/N) ' TO YNl 
IF UPPER(YN1) s 'N' 

STORE G TO CONTRP2 

CLEAR 
ENDIF 


* Return torca MANG progran 
ENDDO WHILE CONTRP2 = 6 
RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkxk 


bys 


=. 


t + + FF FF FF HF x 


+ +++ +*+ 


t+ + + + 


X 


REPOLJOB 


REPOLJOB.PRG 
AUTHOR : DAVID L. HORTON MAJOR USMC 


PURPOSE : Produce a report of jobs that an officer 
is qualified to” fie 

BILE USED : Officers.dbf index officmid.ndx 
Station.dst index stabpgrd.ndx 

CALLING : Repqljob frm 

DATE LAST TIME MODIFIED =====> 12 NOVEMBER 1985 <===== 


Set-up loop to repeat when the user wants to get another 
EODOBC. 


AMORE 1. TO OONTRP] 
DO WHILE CONTRPI - l 


Clear screen and set initial value for military ID 
number. Display title and request the user to provide 
the military id number of the officer who needs a job. 
Wait for the user to respond. 


CLEAR 

STORE : "SUDO OMM DD 

? 

p E THE JOBS QUALIFIED FOR AN'+; 
INOBETCER" 

? ! +; 

! =================================! 
? 

? 

E 

P 


People SAYS Enter Military TD (1.8. 0094366065): ™; 
MERAMUID. PICTURE: 9999999999" 
READ 


Search the officer database for the required military ID 
Humber and store all the officer's qualifications. 


NUSESORRICERS INDEX OFETCMIDE NDA 
GO TOP 

SEEK UPPER (MMID) 

CLEAR 


eneck for no record found On tne database. 
REO e=  . he THEN 


SET TALK ON 
a 21,1 SAY MILITARY ID (" 


o 


+ + A+ 0t x 


+ + + >» 


@ 21,14 SAY MMID 


@ 21,24 SAY ") NOT FOUND ON THE OFFICERS er 
WAIT 
SET TALK ORE 
ELSE i 
STORE ' ' TO MSPGRD 


STORE LNAME TO MLNAME 

STORE FNAME TO°MENAME 

STORE MI TO MMI 

STCRE SeGRD lor eGR 

STORE SPGRD TO MSPCGRD 

STORE PMOS TO MPMOS 

STORE AMOS1 TO MAMOS1 

STORE AMOS2 TO MAMOS2 

? MMID,MLNAME,MFNAME,MMI ,MPGRD,MSPGRD,MPMOS ,MAMOS1,; 
MAMOS 2 


Search station database for jobs which have the same pay 
grade as the officer. If the officer has been selected 
to the next pay grade the highest pay grade will be used. 


USE STATION INDEX STABPGRD.NDX 
STORE SUBSTR(MPGRD,1,2) TO SUBMPGRD 
STORE SUBSTR(MSPGRD; l, 2). TO SUBMSPGR 
IF SUBMSPGR = ' ' THEN 

GOTTORP 

SEEK SUBMPGRD 

OIORESSUSMPGRD- TOS BESTPGRD 
ELSE 

GO TOP 

SEEK SUBMSPGR 

STORE SUBMSPGR TO BESTPGRD 
ENDIF 


Check to see if the user wants a printed report or not. 


ACCEPT “DO YOU WANT TO PRINT Sie RECO ae (Y/N) s 
TO YN 
IÈ UPPER (YN) =. "y: 
SET PRINT ON 
ENDIE 


Create the report of all"Jobs hat the ofivesr as 
OU ELed = COME 


REPORT FORM REPOLJOB FOR (BMOS=MPMOS .OR. BMOS=MAMOS1; 
- OR. BMOS=MAMOS2) .AND. (BPGRD=BESTPGRD) 


MTO CAST NAME FLRST NAME ME 
PGRD SPGRD PMOS AMOSI AMOS2' 


"y - es) y 


* 


x 


„MMID,MLNAME PB- -MPGRD,  ,MSPGRD; = t} 
t 4 


, 
MPMOS, MAMOSL, „M 
SEL PRIND OPF “ 


ENDIF 


Ask the user if more reports are needed. 


ACCEPT 'DO YOU WANT ANOTHER REPORT? (Y/N) AAN L 
PE UPPER(YNL) = "N? 

STORE 9 TO CONTRPL 

CLEAR 
ENDIF 


Return to calling program. 


ENDDO WHILE CONTRP]l = Y 
RETURN 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


Tal 


APPENDIX H 


USER MANUAL 


A. OPERATING INSTRUCTIONS 
l. General 

The Personnel Monitoring Database System (PMDS) is 
a menu driven designed system. Once the system is started, 
you can switch between databases and tasks within a 
database without leaving the system menu control. If you 
need additional capabilities beyond those provided, the 
system can be switched directly into dBASE Iris: 
customized queries or reports. After you are finished, 
control will be returned to the operating system. 

2. Booting The Operating System 

When booting the operating system it 1S necessary 
to update the CONFIG.SYS file on your disk. This all 
should have FILES =29 and BUFFERS=15 as the minimum 
configuration statements. This will overlay the standard 
default used by the operating system and is necessary to 
run the PMDS. 

After including the  CONFIG.SYS file on your disk» 
reboot the system by pressing Ctrl, Alt and Del at the same 
time. If your system does not have an automatic clock, 
enter the date and time as prompted. If working with a 


color monitor, when you receive the operating system prompt 


192 


me, type KOEOR™ followed “by a Carriage return (<-="). 
This will provide a blue display which should be pleasing 
to the eyes as you work. 
3. Loading The dBASE III System 

Now the dBASE III system can be loaded into memory. 
When you are using floppy disks place dBASE III system disk 
mn the A floppy disk port. For most machines this will 
elther be the top or left port. Then type DBASE followed 
by a carriage return. When prompted by the system, vlace 
dBASE III system disk II in the A port and press the 
carriage return. The dBASE III copyright information will 
appear followed by the dBASE prompt ".". To exit from 
dBASE III, type QUIT followed by a carriage return to 
return to the operating system. 

Again if using floppy disks, when you receive the 
dBASE prompt type SET DEFAULT TO B: followed by a 
carriage return. This tells the dBASE system to look at 
B floppy disk drive for all your files. 

4. Loading The Personnel Monitoring Database System 

You are now ready to load PMDS. Insert the PMDS 
disk I in the B port and type DO PMONITOR followed by a 
Carriage return. At this point you are under the control 
of PMDS which will guide you through the system. 

The remaining part of this user manual provides a 
copy of the screens and reports you will encounter as you 


PMDS. For more detailed information about each program or 
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data element, refer to Appendices A through G. 


B. 


| 


SYSTEM SCREENS AND REPORTS 


l. Program Screen Matrix 


PROGRAM 


PMONITOR 
MAINMENU 


OEP TCOCMNMO 
OFFICADD 
OR EIS 
OPE TEDEL 
OBE ChE 


CURR GCMs 
CURRJADD 
CURE 
CURRJDEL 


STATICMD 
o TATIADD 
STATLOURD 
OV DEE 
STATIREV 


MCCDECIMIB 
MCCDEADD 
MCC DEU BD 
MCCDEDEL 
MEC DEBE 


REPORCMD 
REPOLJOB 
REPOLOBE 


SCREENS REPORTS 


ss la) 
A ES A ECCE EUN 
AAA AA A eee 
A A A AA 
CS N 
me oaa a a S 
ERE 12 RE een lr Jis T sd oJ 
eee ase. | ae 
 — HaT CIT) pom E e 
A AAA AAA A 
ommum "pom AA a AE ol 
ETR A m^ 
ART een ee eee 


| 17 OM] A | AA 


HE E | | 
a]. loss | DS on | A 
eres aa see ee 
La [2229 1 3 AN O 
EUIS eo TW mom A 
el 722 | 3 er io | |S 
NN 


o EP ee ERN 
Seo) 2 ram emo JÁ 
AU EOS e e NN 
42 | 23. | 46 1.46 1 ye eee eee 
ESPA PR ee 
L14 [223.42 | 980 | a ra id NNNM 
a a E 
CENSO aceso. 
Eres NN 
BD um IN ee eee 
AAA A PON 


Figure H.1 Program Screen Matrix 


2. Personnel Monitoring System Screens 


134 


*ockockckokokokokokok RARA Screen ]l] ********k*k*k*kkfk*ktktk*ktktk*ktktk*k*kktk 


MEON TERESO R 


So E M 


Written By 


* 

* PERSONNEL 

* 

* DATABASE 
* 

* 

* 

* David L- 

* 


*Push any Key to start 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*kk 


Horton Major USMC 


ING 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


kkkkkkkkkkkkkkkžkkkkkkkkk Screen 2 kkkkkkkkkkkkkkkkkkkkkkkkkxk 


OFFICERS File 
CURRJOBS File 
STATION File 
MCCDESC File 


* 

A seas SEE S yn E Ee 

* 

k PERSONNEL MONITORING SYSTEM MAIN MENU 
ll SS DA assa = =- 
* 

* 1) Maintain 

* 2) Maintain 

x 3) Maintain 

* 4) Maintain 

E 29 Reports 

* 

* 6) Return to dBase 

* "p Return to Operating System 

* 


*Please Enter your Choice (1-7) 


* 


kkkkkkkřkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


kkkkkkkkkkkkkkkkkkkkkkkkk Screen 3 *ckock KKK KK KKK KKK KKK KEK KEE KKK 


* 
* 
* 
* 
* 
* 
E 1) ADD a: new 
* UPDATE an 
x Z DESET E an 
* 4) REVIEW an 
* 
* 5) RETURN to 
* 


*Enter your selection 


===> 


On nTo-r Record 


existing 
existing 
existing 


the main 


(1-5) === 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


INSS 


O aes cayelepac 
ọfficer record 
Or LICer recora 


mend 


meee eee eee ee eee eee ewe eee e tt 
eee eee eee D D D D D D D D D D D D eww mw ed 


* 
* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
k 
* 
* 
* 
* 
k 
* 


* ox ox 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


kkkkkkkkkkkkkkěkkkkkkkkkxkxk Screen 4 **k****k*kk*k*kkk*kkkfkkktkkkk*kkkk*k 


* * 
* Enter military ID to be added (i.e. 0094366065): * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


kkkkkkkkkkkkkkkkkkkkxkkkxk Screen 5 kkkkkkkkkkkxkkkkxkkkkkkkkkxkxk 


* * 
* Enter military ID to be updated (i.e. 0094366065): * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkěkkkkkěkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


AA ZZ KX RAR RARA Screen 6 *ockckok c koko kk kk kk ko kk kkkkkkk*kk*kk 


* * 
x Enter military ID to be deleted (i.e. 0094366065): * 
* x 


kkkkkkkkkkkkkkk*kžxkxkxkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkkxk 


kkkkkkkkkkkkkkkkkkkkkkkxk Screen 7 ***XXXXXXXXXXXXXKXKKKxXKk*kkkxkxux 


* * 
* Enter military ID to be reviewed (i.e. 0094366065): * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkxk 


kkkkkkkkkkkkkkkkkkkxkxkkkxk Screen 8 **XXXXXXXXXKXXXKXKKKKKKkKkxkx%kx 


* * 
* ADD A NEW OFFICER FORMAT * 
* Doo ffi E a E a eee * 
* * 
* MID: 0094366065 LNAME: FNAME: MS * 
* * 
* SPGRD: PGRD: DOR: * 
* * 
* PMOS: AMOSI: AMOS2: * 
* * 
* DAUSDR: PEBD: AFADBD: EAS: * 
* * 
REXXKXXKXKXKKXKXKKKKKKKKKKKKKkkx*kkxk*kxxxkkxxkkxkxkkxkxkkkkxkxkkxkxkxkkxkxkkxkxkxkxkxkxxkx 
* * 
*DO YOU WISH TO MAKE ANVICORRECTIONS O (Yo Ne ===> x 
* * 


kkkkkkkkkkkkkěxkkěkkkkkkkkkěkkěkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkkkkkxk 


ISI 


kkkkkkkkkkkkíkkkíkkkkákkákíkák Screen 9 *XXXXXXXXXXXXxXXXxXxXxXxXxkxXxx% xx 


* * 
E ADD A NEW CURRENT JOB FORMAT E 
EMEN see : 
: MID: 0094366065 LNAME: HORTON FNAME: DAVID Mp c 

* 
4 DEGRD: PGRD: 04 DORE TS SOL ~ 

* 
i PMOS: 4002 AMOS1: 9648 A025 2 $ 

* 
* DAUSDR: 820811  PEBD: 650323  AFADBD: 690313 EAS: 000000 * 
: 
i TOLINENO: MEC: GESDETE" DCTB: RTD: = 

* 
E MEC: PDOT: PDU PLUS: MARST: T FSPOSVC: 2 
* + 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
MS OBENOTES - CAN BE EDITED DURING THE CURRENT JOB UPDATE ** 


kk PROCESS ** 
kkkkkkkkkkkkkkŘkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* * 
* OFFNOTES: * 
* * 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k 
* * 
*DO YOU WISH TO MAKE ANY CORRECTIONS? (Y/N) ===> * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k 


*kkkkkkkkkkkkkkkkkkkkkkk GCcroen 10 KRKA K AK RAK IK A A RK A K A ARK R AA AK AA AAA, 


* X 
* OW VICER DUPLICATE FORMAT E 
RR gh TR IR = E * 
* * 
* MID: 0094366065 LNAME: HORTON FNAME: DAVID MD us e 
* * 
Sore GRD: PGRD: 04 DOR: 330101 E 
* * 
* pMOS: 4002 AMOS1: 9648 BMC OU : 
* x 
* DAUSDR: 820811  PEBD: 650323  AFADBD: 690313 EAS: 000000 * 
* x 
* * 
eel AR Y TD: (0294366065) IS ALREADY ON THE OFFICERS.DBF * 
* AS SHOWN ABOVE x 
* * 
*Press any key to continue... : 
Kem Kea KK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RRR ER 


1S7 


kkkkkkkkkkkkkěkkkkkkkkkxkxk Screen ll KA KZ kok kokok kk ok ko kk kk kkkkkkkrk 


* x 
s ADD ANOTHER RECORD? (Y/N) ===> ' A 
4 * 


kkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkėxkkkkkxkxk 


*kkkkkkkkkkkkkkkkkkkkkkkk Screen le? KKK K de eo koko ko xo kok o kok ko k kkkkkk*kk*k 


k * 
x UPDATE ANOTHER RECORD? (Y/N) ===> * 
* k 


eoe ode oce ode kee kee RRR KKK KEK KR KKK KKK KKK RAR 


kkkkkkkkkkkkkkkkkkkkkxkkk Screen no X*ockockockok oko xckokok kok ko kokkkkkkkkktkk 


* * 
k DELETE ANOTHER RECORD? (Y/N) ===> * 
* * 


KXXKKKKKXKKXKXKKXKXXKKXKKKKKKKXKKKkXXXkkkkxkxkxkkxxxkxkxkxkxkkxkkkkxkxkxkxk 


Kaa Keke RR RR Screen 14 X*ockockokokokoko ko ok ko kokokok A AR 


x * 
x REVIEW ANOTHER RECORD? (Y/N) === x 
n * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkxk 


kkkkxkkkkkkkěkkkkěkkkkkkkkkxk Screen 15 kkkkkkkkkkkkkkkkkěkkkkkkkkk 


* * 
E OFFICER UPDATE FORMAT E 
0 ms O n E 
: MID: 0094366065 LNAME: HORTON FNAME: DAVID MIS E i 
* | SEGRD: PGRD: 04 DRE BOM ; 
* 

i PMOS: 448082 AMOS1: 9648 AMOS2: 9952 , 
: DAUSDR: 820811  PEBD: 650323  AFADBD: 690313 EAS: 0900000 i 
~ “EOL LENO. MCC: -H99 GLCDCTB:8407 DCTITB: 840714 RID: y i 
* 

*EMSC 298 PDUL:UCG PDU24 TDD PDUSS438 MARSIBSM 5 POSES * 


X ooo ode ooo oko oko oko ode ko o o ko eo eo eo de RARA HH 


** OFFNOTES - CAN BE EDITED DURING THE CURRENT JOB UPDATE 


Xa PROCESS * * 
KK KKK KKK KEK KEK KKK KEKE KKK KEK KKK KR KKK KEK KKK KKK KK KKK KKK KKK KKK KKK KEKE 
* OFFNOTES: 3 
* DO YOU WANT TO MAKE ANY CORRECTIONS? (Y/N) === * 


kkkkkkkkkkkkkkkkkėxkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkěkkkkkkkkkkkkxkxk 
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Kee KKK KKK KKK KKK KK KK KKK EK Screen 16 kkkkkkkkkkkkkkkkkkkkkkkkxk 


DAUSDR: 820811  PEBD: 650323  AFADBD: 690313 EAS: 090000 


* * 
* OFFICER DELETE FORMAT * 
A, A JR. ee o SO | ES 
* * 
* MID: 0094366065  LNAME: HORTON ENAME: DAVID MI: L > 
* * 
* SPGRD: PGRD: 04 DOR: 830101 * 
* * 
* PMOS: 4002 AMOS1: 9648 AMOS2: 9952 al 
* * 
* * 
* * 
* * 

* 


* Do You Wish To DELETE This Record?  (Y/N) === 
* X ck oye coke de de koe deck oe de oe oe oe e eoe de eoe oe eode eoe ode de koe ode dee oe e eoe oe e de de ode oe de de ke ok de dede kk ke n kx kk 


* ARE YOU SURE YOU WANT TO DELETE THIS RECORD? (Y/N) - 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkxk 


kkkkkkkkkkkkkkkkkkkkkkkxk Screen 1/7 ***k*k**k*k*kk*k*kkktk*kktkfkkkkkktkkk 


CURRENT JOBÆDELETE FORMAT 


—— 7 Pen A A A A A A A A A A A A A A A oc ee oe 


MID: 0094366065 


EOLINENO: MCC: H99 GLCDCTB:8407 DCTB:840714 RTD: Y 


CACA A F 


ec: 2000 PDUL:0C67 PDU2: TDO T PDU: J38 MARST:M SPOSVC: 


* 
* 
* 
* 
* 
x 
* 
* 
* 
* k 
* c ec RARA RR ke x e x e o x ok ko k oko ko ko ko k k kkkkkkt*kk 
eet ENOTES | EDIT — "PGDN | EXIT - “PGUB | CONTINUE = "END * 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* * 
EEUSENOTES: Memo x 
* x 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* * 
* * 
* CURRENT JOB RECORD FOR MID 0094366065 IS ALSO BEING x 
É DELETED E 

* 

* 

* 


*Press any key to continue... 
* 


XX koe oe de de eode de e ok oe oe e ok oe dene eoe de de x xe Ae kx ke x x x kx x x x e e e e A e ok ko ko ko ko ko ok k kkkkkkkkk 


k***kkkkktk*kktkkkkkkkkkkkkkkk*k Gcreen 18 kkkkkkkkkkkkkěkkěkkkkkxkkkkxk 
* x 


wou MOMENT PLEASE... ERASING DELETED RECORDS s 


kkkkkkkkkkkkšěžxkkkkkkkk*žkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkkkěkkěkkkkxkxk 
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kkkkkkkkkkkkkkkkkkkkkkkk Screen 19 kkkkkkkkkkkkkkkkkkkkkkkkk 


* * 
* MILITARY IDENTIFICATION NUMBER (0094366065) NOT FOUND ON * 
* OFFICERS.DBF k 
*Press any key to continue... a 
* * 
kkkkkkkkkkkkkkkkkkkkkkžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


*ckckckckck ckck k kk kk kkkkkkkkkkk Coreen 20 ko kx e ke ke e e ke kv e e kx kx kx kk kk kk 
* 


* MILITARY IDENTIFICATION NUMBER (0094366065) NOT FOUND ON 
*VeURRIOB See 


* 
* 
* 
*Press any key to continue... E 
* * 
* 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


kkkkkkkkkkkkkkkkkkkkkkkk Screen 21 KKKKKKKKKKKKKKkKkKkKkkkkkkkikxk 


* * 
* OFFICER REVIEW FORMAT E 
AA MR ET i 
* MID: 0094366065  LNAME: HORTON FNAME: DAVID MISES 
* * 
* SPGRD: PGRD: 04 DOR: 830101 i 
* 

* PMOS: 4002 AMOS1: 9648 AMOS2 9957 B 
* 

* DAUSDR: 820811  PEBD: 650323  AFADBD: 690313 EAS: 000000 * 
; à 
* TOLINENO: MEC: HSSPCECDCTBRSADo DerBESA Cria RIDE 9 i 
* 

xT EMCC: 2 PDUl:UCG PDU2: TDD PDUStTJSGSEM ERST SM SPOS VER 
RR AAA AAA E 
* * 
* OFFNOTES | EDIT - ^PGDN | EXIT - ^PGUP | CONTINUE - ^END * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kk 


* OFFNOTES: Memo * 
* * 
X e Xe oe e eoe oe oe oe oe oe oe ode oe oe oe oe ooo deo oe oe oko ooo oe ode ook ooo ode ox ooo eoe e ox de e de x x6 x A k ká ká kák 


+ 
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kkkkkkkkkkkkkžkkkkkkkkkxk Screen 22 kkkkkkkkkkkkkkkkkkkkkkkkxk 


* * 
* T/O LINE NUMBER (3447N0135A) NOT FOUND ON STATION.DBF is 
*Press any key to continue... E 


Cckockoockokokokokodkokokokokokok ko kk kok ck ck k ko ko kk hok ko AX ok k kA kk kk kk Akt k kkkkkkkkktktktktktktktkr*kktk 


kkxkxkkkkkkkkkkkkkkkkkkkkxk Screen 23 kkkkkkkkkkkkkkkkkkkkkkkkk 


* * 
cc. (MBB) NOT FOUND ON MCCDESC.DBF = 
*Press any key to continue... * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


kkkkkkkkkkkkkkkkkkkkkkkkxk Screen 24 kkkkkkkkkkkkkkkkkkkkkkkk 


* == == === =================================<=<=============== * 
* * 
* MENTA IN CURRENT JOBS FILE z 
E E o eS ET a cu mE * 
* k 
x 1) UPDATE an existing current job record E 
* * 
k 2) RETURN to the main menu k 
= k 
*Enter your selection (1-2) === k 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkk 


kkkkkkkkkkkkkkkkkkkkkkkk Screen 25 *kkkkkkkkkkkákkkkkkkkkáků 
x * 
E CURRENT JOB UPDATE FORMAT E 
E : 
* MID: 0094366065  LNAME: HORTON FNAME: DAVID A i 
E 
SC SPGRD: PGRD: O4 DOR: 939191 i 
* 
TEMOS: 4002 AMOS 1: 9648 AMOS 2; "9952 i 
E 
* DAUSDR: 820811  PEBD: 650323  AFADBD: 690313 EAS: 000000 i 
* 
meTOLINENO:  MCC: H99 GLCDCTB:8407 DCTB:840714 RTD: g i 
o 


E MEC 1233 PDO UCO PDU: TODD PDUS:J38 MARSTIM —SPOSVC:U * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkkkkkkkkkkkkkkkkkkkkxk 


RORE NOTES | EDIT - ^PGDN | EXIT - ^PGUP | CONTINUE 0 END * 


kkkkkkkkkkkkkkkkkkkžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


* OFFNOTES: Memo E 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* DO YOU WISH TO MAKE ANY CORRECTIONS? (Y/N) === * 


kkkkkkkkkkkxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


159: 1 


KKKKKKKKKKKKKKKKKKkkkxk xo Screen 26 X* ook o oko oko deck ok ok ok ko k k kkkkktktktkt* 


CURRENT JOB DUPLICATE FORMAT 


had LIEN EE NN NENNEN NEN sdXXlENE 


MID: 0094366065 


TOLINENO:  MCC: H99 GLCDCTB:8407 DCTB:840714 RTD: Ø 


* X X X X 00€ X x 


X 


FMCC: 233  PDUI:UCG  PDU2:TDD. PDUSSJOS MARSTUIMCSPOSIS 
* 


* 
* 
* 
x 
x 
x 
+ 
x 
* 
x 
KKK KKK KKK KKK KKK KK KAKA KKK KKK KKK KK KKK RK KKK KKK KKK KK KKK KK KKK 
-ONO 5 | EDIT - ^PGDN | EXIT - ^PGUP | CONTINUE - ^END * 
ck ck ck ke eoe kk ke oe ck ck ke ce ce ke ck ce ck ck ck ec ck ck RR HH 
E * 
* 
* 
de 
* 
de 
* 
* 
* 
* 
E 


~ OEE NOTES < temo 


* 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkxk 
* 

* 

x MILITARY ID (0094366065) IS ALREADY ON THE 

r CURRJOBS.DBF AS SHOWN ABOVE 

*Press any key to continue... 

* 


Xo oco ook oe oko ook dee oko eoo oko eoe oko e x o ooo eo eoe eoe oe eek e deo de oko de e ke ke x x kx ke x x x kx kx kx 


ck ck ck oko ko ko ke de de ok kx ok kx ok ko k kk kkkkkk Screen D *ckock kockokokockok ok kok kk kkkkkkkk*kk* 


* * 
ee ee ee ee ee ee ee * 
* * 
k MAINTAIN STATION FILE = 
MIE EE ED E CE a * 
* * 
x 1) ADD a new duty station record * 
E 2) UPDATE an existing duty station record * 
É 3) DELETE an existing duty station record * 
* 4) REVIEW an existing duty station record * 
* * 
* 5) RETURN to the main menu B 
* * 
*Encer mour lection —— = 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


T92 


* X 3e de de de de e oe de de de de de de de de de de kk ko kx Screen 28 kkkkkkkkkkkkkkkkkkxkkkkkkk 


* * 
* Enter T/O line number to be added (i.e. 3447N0135A): * 
* a * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


kkkkkkkkkkkkkkkkkkkkkkkk Screen 29 kkkkkkkkkkěxkkkkkkkkkkkkkkk 


* * 
* Enter T/O line number to be' updated (i.e. 3447N0135A): * 
* * 


e ck oe de de oe ce ode ode ode ode eode dece ok oe ode de de cock ode de cock oe ok ode ck K K e dece ode eoe ode K K de deck K K K K RAR 


e e e de e de e de de de de de de de S de de de de de de k ke Screen 30 ****XXXXXXXXXXXXXKXxXxxkkXxx*% 


* * 
* Enter T/O line number to be deleted (i.e. 3447N0135A): * 
* * 


kok k e de de de de ce ode ce ode de ode de ode de de ode de de de de de de e de e de de de ckode ck oe ode de ode ode de de de deck ode K K de ke ke ke de de kx kx ke kx kx kx k 


* coe ok oe oe e de oce ode oe ode eoe oe de deck ok de de de ko Screen 3] kžžkkkkkkkkkkkkkkkkkkkkkxkxk 


* * 
* Enter T/O line number to be reviewed (i.e. 3447N0135A): * 
* * 
* e e oe ode oe oe oe oe ode oe ode ode ode ode ode oe oe oe oe oe oe de oe ode oe de oe de oe oe ode eode dece de ok de e de kx ke K xA x K kx de A K A K K kk k kk 


kkk kk e de de ok ode de de e ok ok de de ke de ke kx ke X Screen 32 kkkkkkkkkkkxkxkkxkkkkkkkkkxkk 
k . > 
k ADD A NEW BILLET FORMAT * 
K MESES 0500 * 
* * 
* X 
* BMOS: BPGRD: BILLET: k 
* x 
* MCC: TOLINENO: 3447N0135A * 
* k 
X ce ke ke ode de e ode ode ode e ce ode oe ode e ce ok ode che oe ode de de ck ode de deck ck oe K K K K K A K ke KR KKK KKK KKK KR KKK KR KEK 
** BILNOTES - CAN BE EDITED DURING THE STATION UPDATE kk 
k PROCESS k 
X eoe de oe oe ok ok KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KER KKK 
* BILNOTES: * 
* k 
* k 
* DO YOU WANT TO MAKE ANY CORRECTIONS? (Y/N) === k 


RAÁKKKKKKXKKKKKKKKKKKKKKKKKKKKKKXKKKXkkkxkkkkkkkkxkxkxkxkxkxkkxxxkkxkxkux 
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*kckkk kk kkkkkkkkkkkkkkkkkk Gcroon 323 ****k*kkkktktkkk*ktktktktktktktktk*ktkk 


* * 
p STATION DUPLICATE FORMAT r 
* W = ap «p "W «p tee => =P =P ap ap ap O O O ce oe ow — O * 
* * 
* * 
* BMOS: 4402 BPGRD: O5- ETEUGET:  PNEOM SSG OBE ni 
* * 
MOS loe TOLINENO: 3447N0135A $ 
* i * 


kkkkkkkkkkŘkkkkkkkkkkkkkxžxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


* BIBLNOTES EDIT - ^PGDN EXIT - ^PGUP | CONTINUE - “END * 


kkkkkkkkkkkšžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


*PBICNOTES: EMSMO X 
* * 
* * 
x T/O LINE NUMBER (3445N0135A) IS ALREADY ON THE x 
x STATION.DBF AS SHOWN ABOVE E 
EXKKKKKKKKKKKKXKKKKKKKKKKKKKKKKKKKKKKKKkKKkKKKKxKkXkxkkkkkkkkxkx xx 


EKXKXKKXKXKXKXXKXKKKKXKXKxKkxkxk xx xo Screen 34 kkkkkkkkkkkžkkkkkkkkkkkkkxk 


* * 
* STATION UPDATE FORMAT = 
ko AABT TA * 
* k 
* * 
* BMOS: 4002 BPGRD: O5 BILÉET INGO VSYS cl ORE a 
* * 
MEETS TOLINENO: 3447N60135A = 
* a 


KXKKKKKKKKRKKKKKKXKKXKXKKKKKKKKkkkxkkxkkkkkkxkkkkxkxkxkkkxkkxk kk kk xk ko 


“ZI BILNOTES | EDIT - “PGDN | EXIT - “ PGUP | CONTINUE - “END * 


kkkkkkkkkkkkŘkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


* BILNOTES: Memo * 
* k 
* + 
* DO YOU WISH TO MAKE ANY CORRECTIONS? (Y/N) === * 


kkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


kkkkkkkkkkkkkkkkkkkkkkkk Screen 35 kkkkkkkkkkkkkkkkkkkkkkkkk 


* . * 
A PLEASE INSERT PROGRAM Disk i * 
*Press any key to continue... a 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkxk 


Xo oko ode ck e de deo kx ke ke ko de dk de ok ok kk Screen 36 kkkkkkkkkkkkkkkkkkkkkkkkk 


* * 
e PLEASE INSERT PROGRAM DISK II č 
*Press any key to continue... i 


kkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 
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Kee KR Kee KK KK KK KKK KKK KKK KR KEK Screen 37 ****kkk*kkfkfkkkfkktkkf*kkktkrkkkr*kk 


k * 
É STATION DELETE FORMAT x 
DE LL o PER as x 
* k 
* * 
AMBMOS: 4002 BPGRD: O5 BILLET: INFO SYS MGT OFFICER aj 
* * 
MESES 151 TOLINENO: 3447N0135A a 
* * 


X oce ode RR RR RR RR RR RR RR RR DR RR KR RK KKK KR RR KKK KKK RK KKK KKK KK KKK KKK KR KK 


POBWENOTES EDIT - ^PGDN EXIT - ^PGUP | CONTINUE - “END * 
OK ORK ROK RO ROR ROK ROK Rokk kok KR kK Rk kok ok kok OK kok kok ek kok kok kok e e e o 


* BILNOTES: Memo 
* * 
* * 
* Do You Wish To DELETE This Record? (Y/N) ===> * 
* ARE YOU SURE YOU WANT TO DELETE THIS RECORD? (Y/N) k 
Xo oe ooo eoe ooo eoo ooo eo eoo ooo eo eoo eoo oe ooo oo x A x e x x xn xn kx xA x xn x x kx xn xn xk 


AA ke ck ok ok ok ok dk x x kx kx ke kx x x kx kx kx kx Screen 38 ***YXXXXXXXXXXXXXxXxXXxXXXxXXxxxx% 


* * 
E STATION REVIEW FORMAT x 
A a A. A obe ee Aa * 
* x 
- 
ENPIo5: 49002 BPGRD: O5 BILLET: INFO SYS MGT OFFICER * 
x x 
EN CC: 151 TOLINENO: 3447N0135A > 
* * 


KXKKKKAKKKKKKKKKKKKKKKKXXKXXXxHxkxkxkxxkxkxkxxkxkxkxxkxkxkxxkxxxkxkxkxxkxkxkxkxkxkxcou 


IB TENOTES EDIT - “PGDN | EXIT - ^PGUP | CONTINUE - “END * 
kkk KKK KKK KK ARK KR KR KKK KR RRR KR KR RRR RK RRR KR RK RK RR KR KR RK RK 


* BILNOTES: Memo = 
* k 
* k 


XKXXKKKKKKKKKKKKKXKKKKxkkkxkkkkxkkkxkxkxkxkkxkxkkxkxxkkxkxkxkxkxkxkxxxkxkxxxxkxkx 


IO 


kkkkkkkxkkkkkkkkkkkkkkkkxk Screen 39 *XXXXXXXXxXxxxxxxkxkkxkxxxkxkxkxx 


* * 
* Enter MCC to be added (i.e. MB1): * 
* * 


coe eoe eoe oe eoe eoe oe oe oce oce eoe ke deo eoo eo eo eo € e koe e e e € x ke e kx kx x kx kx RR 


kkkkkkkkkkkkkkkkkkkkkkkxk Screen 40 kkkkkkkkxkkkxkkkkkkkkkkkxkxkxk 


* * 
* Enter MCC to be updated (i.e. MEM: * 
* * 


oe ee ek e 6 x kx kx Ax kx KR K Mx kn xn An xn n kn n x x K AK Á K € x K 4 K AK kx K 4 eee non KK x 


kkkkkkkkkkkkkkkkkkkkkkk* Gcreoen 4l *X***kkkkkk kk ok ck kk kk kk ok e kk 


* * 
* Enter MCC to be deleted (i.e. MBL): * 
* * 


KaAK e ARAL AAA AAA AA AA 


A kck ok ok kk kk kk kkkkkkkkkkkkk Gocreen 42 **k*k*k*k*k kk kk k kk kk kk kk kekek ke 


* * 
* Enter MCC to be reviewed (i.e. MB1): * 
* * 
X oe oe oe eode eoe ode ox eoo eee oe eoe oe oe ook AAA RRA 


A AZ KKK KAKA Screen 43 oko ook ok ok ok ck RARA RA RR 


* * 
* Tr ce ae ae B map cmd mar cma a md cmd MEM B, cms cmd ae ae ce =e cmm M M m | a | a a a m S n * 
* * 
x MAINTAIN MCC DESCRIPTION FILE 
.. E A mi A A * 
* * 
E 1) ADD a new mcc description record = 
* 2) UPDATE an existing mcc description record E 
É 3) “DELETE an existing mecddescriptionfrecora * 
* 4) REVIEW an existing mcc description record * 
* * 
k 5) RETURN to the main menu = 
* * 
*Enter your selection (1-5) === * 
KAZ KAZ eoe oe ok oe oe oe oe ode ode oe oe ok ok oe ode ode oe ode ode oe oe oe ode oe oe oe o eoe oe ode oe oe oe oe oo eo ARA RR RH 
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* oko ode ck koe Md dd x6 kx xn x xA xx x Screen 44 *****kk*kk*k*kkkkkkkktktkkkkkkktk** 


k x 
* ADD A NEW MCC DESCRIPTION FORMAT * 
I D" SUN oa adu i EL a te 
k k 
* * 
MEC : * 
* x 
* GEOLOC: * 
* k 
ARK KK KŘ ke KKK RK KR KK RK RR KR KK RK KK ko kok ok oko kokok ko k ok kok ko kokok 
** MCCDESC - CAN BE EDITED DURING THE MCC DESCRIPTION ** 
kk UPDATE PROCESS * 
kockckokokokokokokockokokokokokok ook okokok ck ok oko okokokokoko kokok kok ko kokoko k ko ko ko ko ck kok kk kk kkkkkkkk 
EESMCCDESC: * 
* = 
* k 
* DO YOU WANT TO MAKE ANY CORRECTIONS? (Y/N) === * 


txt AAA AAA de de ok eo e ke de ko ok ko oko ko AAA RR SR 


cook oe ok kx e x ke kx x e ke Xx kx kx kx kx kx ok kk Screen 45 kaa Kae KR KR KR KR KR KR KKK KKK KR RR KEK 


MCC DESCRIPTION DUPLICATE FORMAT 


mee: MBI 


+ + + O + F X X 


GHOLOCS EAST COAST 
* 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
ESMCCDESC | EDIT - ^PGDN | EXIT - ^ PGUP | CONTINUE - ^END 


X Xe e ck oe oe oe ode oe oe ok ode ok ok ode ok ode oe ok ode oe ode eoe ok oe x ko ke ke e x x e ko x ok ko k oko k kkkkkkkkkkktktktktktkkrkk 


XX A AHA + HF HF X 


* MCCDESC: Memo * 
* * 
* * 


* MCC (MBI) IS ALREADY ON THE MCCDESC.DBF AS SHOWN ABOVE x 


X oko ode oe oe ode de oe oe oko oe oe ck oe ode koe oe ke koe oe de oe oe deo oe de ok ke kx ke ko ko ok oko ko k k kkkkkkkkkkkkkktktkk 


E97 


kkkkkkkkkkkkkkkkkkkkxkkk*kxk Screen 46 kkkkkkkkkkkkkkkkkkkkkkkkxk 


MEC DESCELPILLONGSUBDATESEOGDDAT 


MCC: T MBL 


+ + + + X* X* X 
+ + + + + F X 


GEOLOC: EAST COAST 


* x 
kkkkkkkkkkkkkkkkkkkkkkkkŘkkkkkkkkěkkkěkkěkkkkkkkkkkkkkkkkkkkkkkkkxk 


* MCCDESC | EDIT - ^PGDN | EXIT - ^ PGUP | CONTINUE - “END * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkkkkkkkkkkxk 


* MCCDESC: Memo * 
* * 
* DO YOU WISH TO MAKE ANY CORRECTIONS? (by eem * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*kxkkk 


kkkkkkkkkkkkkkkkkkkkkkxkxk Screen 47 kkkkkkkkkkkkkkkkkkkkkkkxkxk 


+ * 
* MCC DESCRIPTION DELETE FORMAT * 
* 000 2 + 
* * 
* MCC: MB1 + 
+ + 
* GEOLOCT EASQqQSCOAST * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkk 


*- MESES | EDIT - ^PGDN | EXIT - ^ PGUP | CONTINUE - “END * 


kkk kk kk aK KkKR KKK KR KKK KR KKK KKK KKK KKK KR KKK KR eo ok oe deo deo o ox kx xn n kx x4 xn G ÀxnG 0 kx X ko kk 


* MCCDESC: Memo * 
* * 
* Do You Wish To DELETE This Record? (Y/N) === * 
* ARE YOU SURE YOU WANT TO DELETE THIS RECORD? (yi * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


kkxkkkkkkkkkšxkkkkkkkkkkxkkxk Screen 48 kkkkkkkkkkšěkkkkěxkkkkkxkkxkkkk 


MCC DESCRIPTION TREVIEWTEORMAT 


om eee E ame ame E e = =. = P 2 2 0 P = = + D e P 0 a ee == P oe 


MCC: MBs 


+ + + x 
+ + + + HF 


* GEOLOG EAS som 


* * 
Ka KK KKK KKK KKK KR KKK KKK KR KKK KKK KKK KKK KKK A AAA ARA 


= MCED Rae EDIT - ^PGDN EXIT - ^ PGUP CONTINUE - ^END * 


X ooo ook oe oe ode Ade eoo oe ode eoo eoe ok oko eoe oe oko ok ck o eoo eco koe oe ko ec K Á x de e 6 kx x xn xn x4 kx ko k kk 


* MCCDESC: Memo x 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkkšžxkkkkkkkkkkkx*šxkkkkxkxk 


r98 


*okok ck ox ook ko ok kock k kk ko kokkkkkk*kkk Screen 49 *ockoX ck oko oe Xe oe Xx Xx ke |& xn Xx À|xG 0x kx kx x xXx kx 


* X 
* SS ES PCC CS SS SS SS SS BS SS SS SS ESSES O 0 l- * 
* * 
* PERSONNEL MONITORING REPORTS * 
00 0770 0 O  — 5 ©- ©: -© -:5-- -< c. ns * 
* * 
E iy OPPICERS qualified for a specific Job 
x 2) JOBS qualified for a specific officer k 
* * 
x d RETURN to the main menu * 
* * 
*Enter your selection (1-3) === x 
X oe ooo e eoe eoe oe oe oe oe oe o oe oo eoe oko eoe oe oe oe oe oe oe ode ode ook ok oe oe oe ooo o xo A x x A kx x xn xn xn xn x6 x 


k*kkkkkkkkkkkkkkkkkkkkkkk Gcreen 50 **XXXXXXXXXXXXXXXKXXXxXx*xX*xx% 


Mero E TIEERS OQUALIPTED FOR A JOB 


3447N0135A 151 05 4002 
DO YOU WANT A PRINTED REPORT? (Y/N) 


X* oo ook oe oe eoe RARA ke xe e e x RAR 


* 
* 
* 
* 
Enter T/O line number (i.e. 3447N0135A): * 
* 
* 
* 
* 


+ X X X X X x 


XoX*ooooo(**x(Xxxkkk£&& RH Screen Sal: KKK KK KKK KKK KKK KK KKK KKK KKK 
THE JOBS QUALIFIED FOR AN OFFICER 


0094366065 HORTON DAVID L 04 4002 9648 9952 
DO YOU WANT A PRINTED REPORT? (Y/N) 


keke KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KR KK 


* 
* 
* 
Enter Military ID (i.e. 0094366065): s 
* 
* 
* 
* 


XXX XXX x 


**kkkkkkkkkkkkkkkkkkkkkk*kk*k ReDort T: X ook oo ode koe x e e xe x kx x n kx x Kn x kx x xk kx 
de 


* OFFICERS QUALIFIED FOR THE JOB * 
* k 
* Military Last ELSE MI PMOS AMOSL AMOS2 DAUSDR* 
* ID Name Name x 
* * 
*0094366065 HORTON DAVID L 4902 9648 9952 820811* 
* * 
mo. LINE BILLET BIGLET BILLET E 
*NUMBER MCC PAY GRADE MOS DESCRIPTION * 
*3447N0135A Bol OS 4002 INFO SYS MGT OFFICER * 
X Xo de de xo ode eoe oe e ko ke ke ok o oe ok oe ook oe oe ooo oo ode oo eoe ok oko oe Xe oe de de ox ke ko ko kx ok n x ox x kx ok kk 


IO 


AA XZ AZ Ax e Ax Ax X4 A KR Report 2 k*kkkkkkckk kk k kk kc kk ke kkkkkkkkk*kk* 


x JOBS QOUALIFTED FORSTIE ORE TCE * 
* * 
* TAO PINE BILLET BILLET BILLET z 
*MCC NUMBER PAY GRADE MOS DESCRIPTION E 
* * 
*151 3447NG135A 05 4002 INFO SYS MGT OFFICERE 
* * 
*MILITARY LAST PERO * 
*ID NAME NAME MI PGRD SPGRD PMOS AMOS1 AMOS2* 
*0094366065 HORTON DAVID L 04 4902 9648 9952 * 
* * 
* (This report is not to scale.) = 


EXA RAR 
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